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DEALERS VOOR DE DOOR ONSZELF ONTWIKKELDE HARDWARE WELKOM 



Europees Computer Centrum 


MSX Expansion Computer Case 


Hfl 

550- 

375,- 

550- 

765- 

910,” 


ECC 8 
ECC 4 


Goldstar MSX 64k 
AVT MSX 64k 
Deawoo kleurenmonitor 


BF 

9.900 

6.750 


10.300 

13.990 

16.380 


Lees de objectieve testrapporten in: 
- MSX Magazine 


Dr. Persoonslaan 15b 
Willebroek 

Telefoon 03 - 886 2060 


- MSX Info 


- MSX Mozatek 


- MSX Verenigingsblad Belgie 

- Radio Amateur Magazine 



eerste diskdrive 5,25 inch 
eerste diskdrive 180 Kb 
eerste diskdrive 360 Kb 
eerste diskdrive 720 Kb 


Hfl BF 

995,- 17.100 

1638,- 29.485 

1679,- 30.220 


Tweede diskdrive mag 5,25 of 3,5 inch 2 ijn. In kast met 
voeding en alle bijbehorende kabels. Bij de genoemde 
prijzen zijn wij ervan uitgegaan dat U de eerste drive al 
van ons in Uw bezit heeft. 


Hft BF 

tweede diskdrive 180 Kb 950,- 17.100 

tweede diskdrive 360 Kb 1056,- 19.000 

tweede diskdrive 720 Kb 1095,- 19.710 


Volwaardige MSX printers 
door middel van de door 
ons vervaardigde 
Rompack printer routine. 



EPROM PROGRAMMER 

VOOR MSX COMPUTERS inclusief software 

Hiermee kan U Uw zelfgemaakte basic 

(of machinetaal) programme's in eprom zetten 

(ook bestaande software). 

Hfl BF 

499,- 8.980 

Rompacks met eproms los verkrijgbaar. 
2K-4K-8K en 16K. 


Indien U een FAX 180 
of Trend JP printer bezit, 
kunt U nu alie MSX karakters 
uitprinten. 

Vraag de introductieprijs! f ! 
met of zonder printer. 


Verder verkopen wij MSX computers, monitoren, printers en alle toebehoren. Nieuw is de 
MSX MUIS. Natuurlijk ook de door onszelf ontwikkelde Expansion sloten, ECC 8 en ECC 4. 
Tegen zeer scherpe prijzen. 

Prijzen inclusief BTW. Prijswijzigingen voorbehouden. 

Teiefoonnummer van ECC vanuit Nederland 09 - 323 886 2060, 

Wij zijn maandag tot vrijdag van 09.00 tot 18,00 uur en zaterdag van 10.00 tot 18.00 uur open. 
Voor schriftelijke reactie: Postbus 73817 te Den Haag. 
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DEC. 1985 / JAN. 1986 

De MSX-Gids verschijnt 6x per jaar. 
Het volgende nummer komt uit rond 1 februari 


COLOFOH 

De MSX-GIDS IS EEN UITGAVE VAN: 
J .HERPS, POSTBUS 10252, 

1001 £G AMSTERDAM. 

TEL. 020-327464 


INHOUD 


DE MSX-GIOS VERSCHIJNT 6 KEER 
PER JAAR. EEN ABONNEMENT KOST < 
FI. 40,* PER 6 NUMMERS EN IS TE 
VERKRIJGEN 000R FL. 40,* OVER TE 
MAKEN OP GIRONUMMER: 50 36 011 

T.N.V. JOSE HERPS TE AMSTERDAM. 
VOOR BELGIE: BFRS. 750,* OP 

BANKREKENINGNR. 235-0430464-87 

BIJ DE GENERALE BANKMAATSCHAPPIJ 
TE HASSELT T.N.V. JOSE HERPS, 
POSTBUS 10252, 1001 EG AMSTER¬ 

DAM, NEDERLAND, 

HOQFDREDAKTIE: 

ALFRED OEBELS, 

POSTBUS 10252, 

1001 EG AMSTERDAM. 

TEL. 020-320807 

ADVERTENT IE EXPLOITATIEt 
't ACT 1VITEI TEN BUREAU, 

STEVEN VANHETGOOR, 

POSTBUS 247, 

3840 A£ HARDERWIJK, 

TEL. 03410-1 9200 

ADVERTENT IETARI EVEN OP AANVRAAG. 

VERSPREIOER NEDERLAND: 

BETAPRESS - GIlZE. 

VERSPREIDER BELGIE: 

AMP - BRUSSEL. 

HET GEHEEL OF GEDEELTELIJK OVER- 
MEMEN VAN OE INHOU0 IS TOEGE- 
STAAN VOOR: 

HIET-COMMERCIELE DOELEINDEN1 
OE INHOUD VAN DE MSX-GIDS KOMT 
VOOR EEN GROOT GEOEELTE TOT 
STAND DOOR 1NZEND1NGEN VAN OE 
LEZERS. DE AANSPRAKELIJKHE10 
VOOR AUTEURSRECHTEN OP INGEZON- 
DEN STUKKEN LIGT BIJ OEZE INZEN- 
DERS. 


SUBSCRIPTION PRICE ABROAD: 

PEOPLE LIVING OUTSIDE HOLLAND 
AND BELGIUM HAVE TO PAY OG 55,— 
A YEAR FOR 6 ISSUES. 

SINGLE COPIES OG 10,™ 

PAYMENTS CAN BE MADE CASH BY 
REGISTERED MAIL OR BY I NT. MONEY 
ORDER. 

BANKCHEOUES OR -TRANSFERS CANNOT 
BE ACCEPTED. 


LISTINGS: 

FRUITMACHINE.. 3 

ZWORK (THE BOUNCING ALIEN)_ ..... 7 

SPORTVISSEN. 10 

DRIE OP EEN RIJ. 14 

HELIWAR.. 25 

SCORETELLING. 32 

SLANGENSPEL. 35 

MASTERMIND. 37 

CONTROLE TELLING. 54 

BASIC NADER BEKEKEN: 

SORTEREN IN BASIC.... .. ... 16 

PROGR. SOUND GENERATOR... 19 

PRINT USING. 23 

SPRITE PROBLEMEN?. 24 

SOFTWARE TESTS: 

64 TEKENS OP EEN REGEL. 40 

3 IN 1. 41 

DRILLER TANKS/DOG FIGHTER/GALACTICA 42 

HYPER VIPER / STAR AVENGERS. 43 

MASTERS OF THE LAMPS.• 44 

HOLDFAST / THE WRECK.. 45 

BOEKBESPREKINGEN... 47 

DIVERSEN: 

MSX SOFTSHOP. 30 

VELD 7 VAN DE STUNTVOGEL. 39 

MINI GIDS. 51 

BRIEVEN VAN LEZERS. 52 

LEZERS ONDERZOEK. 55 
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Voorwoord 


Bij dit tweede nummer van de MSX-Gids nog steeds geen fotootje van de redakteur 
achter zijn toetsenbord. Evenals mijn collega van MCM maak ik voor de 
tekstverwerking nog geen gebruik van de MSX computer en ik weet uit zijn 
voorwoord , dat er reakties komen op het plaatsen van foto's van non-MSX 
computers; nog even wachten dus. 

De reakties op het eerste nummer waren erg positief en ik wil hier verder ingaan 

op de brieven en telefoontjes die betrekking hadden op de uitvoering van het 
eerste nummer . 

HET PAPIER . 

Als alles meezit is deze uitgave op een iets betere kwaliteit papier gedrukt dan de 
vorige • Het merendeel van de lezers vroeg ons om toch vooral niet over te gaan op 
glanzend papier, omdat dan het overnemen van de listings zo lastig is • Wij vinden 
dit ook vervelend , vooral bij kunstlicht en zijn dus zeker niet van plan om op 
*glimmend r papier over te gaan. 

PRIJS/PAGINA VERHOUDING. 

Er waren nogal wat vragen en opmerkingen over de dikte van dit blad en er werd 
vaak met andere bladen vergeleken. De meeste andere bladen hebben veel meer 
pagina's, maar ook meer adverteerders. 15 tot 20 pagina f s met advertenties zijn 
geen uitzondering . Wanneer dit blad ook zoveel adverteerders heeft, zal 
uiteraard het aantal pagina's uitgebreid worden. Het aantal pagina* s met listings , 
tests, BASIC enz, zal ongeveer gelijk blijven . 

ABONNEES. 

De losse verkoop loopt pn'ma, maar de abonnees laten het afweten . Toch hebben 
wij deze abonnees erg hard nodig! Van de opbrengst van de losse verkoop krijgt 
de uitgeefster slechts 50% van de opbrengst. De inkomsten uit de abonnementen 
zijn echter 100% en dat is hard nodig om dit blad op het huidige niveau te kunnen 
handhaven dus, stuur in die bon !! 

INZENDINGEN. 

We hebben in dit nummer al een paar inzendingen geplaatst van lezers. Toch 
moeten er meer 'top programmers' rondlopen met een goed programma voor dit 
blad . Waar blijven jullie? 

MSX-USER. 

In Engeland is het blad MSX-USER verdwenen. Niet dat dat blad nu zo slecht Hep , 
maar de uitgeverij is ermee gestopt en daardoor zijn 8 bladen (waaronder 
MXS-USER) uit de markt genomen. Jammer! Wij vonden dit blad zeer goed; 
misschien wel het beste MSX blad, dat er was# C/it Engeland hebben we nu nog 
aiieen MSX-computing; ook niet slecht , maar net niet de kwaliteit van de 
MSX-USER . 

PRETTIGE FEESTDAGEN . 

Bovenstaande heeft meer iets weg van een telegram dan van een voorwoord maar 
er waren zoveel vragen en opmerkingen , dat mij dit de beste manier leek om overal 
een (beknopt) antwoord op te geven. Ik stort mij weer op de programma's voor 
het komende nummer en wens iedereen prettige kerstdagen , een goed uiteinde en 
een nog beter begin van het nieuwe jaar. Tot ziens in het volgende nummer. 

Alfred Deb els. 
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FRUITMACHfiME 

Daar is ie dan. Een echte (g)eenarmige 
bandiet voor de freaks. Ik heb een paar 
dagen in een automatenhal rondgehangen 
ora een beetje de werking van een echte 
fruitmachine door te krijgen, want de 
enkele keer dat ik daar kom f is het om 
nieuwe videospelletjes te bekijken. 
Spelen doe ik er nauwelijks; thuis op 
de micro is het goedkoper. Maar goed, 
voor de MSX-Gids lezers moet je wat 
over hebben, dus maar een paar guldens 
hier en daar in de slotmachines 
gegooid. 

Deze fruitmachine doet zo'n beetje wat 
de echte machines ook doen: 

Eerst geld erin (10 cent?; kwartjes?; 
guldens?; bekijk het maar) en dan 
spelen. De machine werkt met de 
funktietoetsen 1 t/m 5 en de 
spatiebalk. Geld ingooien met F5, dan 
spelen met de spatiebalk. Wanneer.in 
een ronde niets wordt gewonnen, kan 
-net als bij de grote machines- met de 
toetsen 1,2 en 3 een rij vast worden 
gehouden (hold). Wanneer in een ronde 
wel winst wordt behaald, kan met de 
toets F4 extra gegokt worden. De winst 

kan dan verhoogd worden -afhankelijk 
van de score in de tweede ronde met de 
tweede rij- of je verliest alles! Deze 
machine is net zo verslavend als zijn 
grote broers, dus pas op!! Hij voldoet 
echter niet aan de wettelijke eisen 
-het is dus een echte GOK-machine- en 
mag daarom alleen in de huiselijke 
kring worden gebruikt. 

HET PROGRAMMA 

Het grootste gedeelte van het programma 
is rechttoe, rechtaan geschreven en het 
had zelfs nog wel wat korter gekund 
door hier en daar nog een subroutine te 
maken. Wat wel opvalt is het draaien 
van de 'wielen*. Ik heb dit gedaan door 
boven en onder de hokjes, waarin de 
sprites draaien, een extra sprite 
(sprite-0) te plaatsen onder de nummers 
sprite 1 t/m sprite 6. 

De sprites in de hokjes worden 
geplaatst met de nummers 7,8 en 9 zodat 
ze onder de andere sprites komen te 
liggen. Door de eerste lokaties dan ook 
onder de eerste sprites te geven en 
vervolgens steeds 5 lokaties lager, 
lijkt het dus alsof ze boven in het 
hokje tevoorschijn komen en naar het 
midden van de rol draaien. Het 
wegdraaien naar beneden gebeurt op 
dezelfde manier; ze worden onder de 
eerste sprites geschoven. Een en ander 
is voor het oog niet zichtbaar omdat 
deze eerste 6 sprites dezelfde kleur 
hebben als de achtergrond. 

Het plaatsen van deze 6 'loze* sprites 
in de achtergrondkleur is te vinden op 
de regels 31880 t/m 31930. 

Veel plezier met het programma en tot 
een volgende keer. Alfred 



20 ' * FRUITMACHINE * 

30 " * (c) 1986 De MSX-GIDS * 

40 " * Amsterdam * 

50 " ************************ 

60 " 

70 CLEAR 200:SCREEN 2,2,0:CLS:KEYOFF 
80 DEFINT A-Z:X=RND(-TIME):LOCATE 0,0,0 
90 OPEN "GRP:"FOR OUTPUT AS #1 
100 FOR I=1T010 
105 KEY I,"" 

110 NEXT 

120 SOUND 7,254:SOUNDS,16:SOUND9,!6:S0UN 
D10,16:SOUND11,79:SOUND12,27:S OUND13 
,12 

125 SOUND 1,0:FOR I=1T025 

130 FOR J=100 TO 150:SOUND 0,J:NEXT 

135 NEXT . 

150 GOSUB 30000 
198 ' 

199 " 

200 ON KEY GOSUB 11000,12000,13000,14000 
,15000 

210 KEY(5)0N 

220 LINE(234,20)-(237,55),1,BF 

225 FOR I=1TO200:NEXT:PLAY”S9M999N10" 

230 LINE(234,20)-(237,55),15,BF 
240 FOR I=1TO200:NEXT:GOTO 220 

498 ' 

499 ' 

500 GOSUB 20000 
510 X$=INKEY$ 

520 X$=INKEY$:IF X$<>" "THEN520 
600 KEY(1)0FF:KEY(2)0FF:KEY(3)0FF 

998 ' 

999 ' MAIN LOOP 

1000 FOR 1=1 TO 29 

1005 SOUND 6,30:SOUND 7,8:SOUND 8,16:SOU 
ND 9,16:SOUND 10,16:SOUND 11,118:SO 
UND 12,5 

1010 FOR J=30 TO 58 STEP 5 
1020 IF R1=0 AND I<26 THEN PUT SPRITE 7, 
(22,J),XI,XI 

1030 IF H2=0 AND I<28 THEN PUT SPRITE 8, 
(62,J),X2,X2 

1040 IF H3=0 THEN PUT SPRITE 9,(102,J),X 
3,X3 
1050 NEXT 
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1060 ' 

1070 ' 

1100 IF H1=0AND I<26THEN X1=RND(1)*6+l 
1110 IF H2=0AND K28THEN X2 =RND (1) * 6+1 
1120 IF H3=0 THEN X3=RND(1)*6+l 
1130 " 

1140 " 

1200 FOR J=5TO30 STEP 5 
1210 IF H1=0 AND I<26 THEN PUT SPRITE 7, 
(22,J),XI,XI 

1220 IF H2=0 AND I<28 THEN PUT SPRITE 8, 
(62,J),X2,X2 

1230 IF H3=0 THEN PUT SPRITE 9,(102,J),X 
3,X3 
1240 NEXT 
1250 ' 

1260 ' 

1300 IF Hl=0 AND I<26 THEN PUT SPRITE 7, 

(22.28) ,XI,XI:SOUND 13,9 
1310 FOR J=1TO40:NEXT J 

1340 IF H2=0 AND I<28 THEN PUT SPRITE 8, 

(62.28) ,X2,X2:SOUND 13,9 
1350 FOR J=1TO40:NEXT J 

1360 IF H3=0 THEN PUT SPRITE 9,(102,28), 
X3,X3:SOUND 13,9 
1370 ' 

1400 FOR J=1T0 I*9:NEXT J 
1410 IF I>25 THEN FOR J=1TO40:NEXT J 
1420 IF H3=0 AND I>27 THEN FOR J=1TO90:N 
EXT J 

1450 NEXT I 

1998 ' 

1999 " 

2000 IF X1=X2 THEN 5000 
2005 X=H1+H2+H3 

2010 H1=0:H2=0:H3=0 

2020 PUT SPRITE 13,(22,144),11,7 

2030 PUT SPRITE 14,(62,144),11,7 

2040 PUT SPRITE 15,(102,144),11,7 

2050 OC-1 

2060 GOSUB 20000 

2070 IF C=0 THEN 200 

2080 IF X=0 THEN KEY(1)ON:KEY(2)0N:KEY(3 
)ON 

2090 PLAY"V15L64T25501BAGFEDC” 

2095 FOR I=1TO2000:NEXT 
2100 GOTO 500 

4998 ' 

4999 "WINST 

5000 H1=0:H2=0:H3=0:S=1 

5005 PLAY"V14L32T200O4CO5DO6EO7FO8G" 

5007 FOR I=1TO2000:NEXT I 
5010 KEY(4)0N 
5020 S=S+X1 

5030 IF X1=X3 THEN S=S+5 
5040 PRESET(180,135) 

5050 PRINT//1, "DUBBEL" 

5060 PRESET(190,150) 

5070 PRINT#1,"OF" 

5080 PRESET(180,165) 

5090 PRINT#1,"NIETS!" 

5100 LINE(138,138)-(164,168),10,BF 
5110 I=RND(1)*90+1:PLAY"V15T255L64N=I;" 
5120 LINE(138,138)-(164,168),1,BF 
5150 X$=INKEY$:IF X$<>" ” THEN 5040 



5160 KEY(4)OFF 
5170 FOR 1=1 TO S:BEEP 
5180 C=C+1:GOSUB20000 
5190 NEXT I 
5200 GOTO 1000 

10998 ' 

10999 'KEY(l) 

11000 IF H1=0 THEN Hl=l ELSE H1=0 
11010 IF Hl=l THEN PUT SPR' ;E 13,(22,144 

),6,7 

11020 IF H 1=0 THEN PUT SPRITE 13,(22,144 
),11,7 

11050 RETURN 500 

11998 ' 

11999 'KEY(2) 

12000 IF H2=0 THEN H2=l ELSE H2=0 
12010 IF H2=l THEN PUT SPRITE 14,(62,144 

>,6,7 

12020 IF H2=0 THEN PUT SPRITE 14,(62,144 

),H,7 

12050 RETURN 500 

12998 ' 

12999 'KEY(3) 

13000 IF H3=0 THEN H3=l ELSE H3=0 

13010 IF H3=l THEN PUT SPRITE 15,(102,14 
4),6,7 

13020 IF H3=0 THEN PUT SPRITE 15,(102,14 
4),11,7 

13050 RETURN 500 

13998 ' 

13999 'KEY(4) 

14000 KEY(4)OFF 
14010 FOR 1=1 TO 45 
14020 Y1=RND(1)*6+1 
14030 Y2=RND(1)*6+l 
14040 Y3=RND(1)*6+1 

14050 PUT SPRITE 10,(22,94),Yl+6,Y1 
14060 PUT SPRITE 11,(62,94),Y2+6,Y2 
14070 PUT SPRITE 12,(102,94),Y3+6,Y3 

14080 PLAY"S9M9999N=I*2;":F0RJ=1T0I*2:NE 
XT J 

14090 NEXT I 

14100 IF Y1=Y2 THEN S=S+5 

14105 IF Y2=Y3 THEN S=S+5 

14110 IF Y1=Y2 AND Y1=Y3 THEN S=S+5 

14120 IF Y10Y2 AND Y2<>Y3 THEN S=1 

14130 FOR 1=1 TO S 

14140 C=C+1:GOSUB20000 

14150 NEXT 

14200 GOTO 500 

14998 ' 
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14999 'KEY(5) 

15000 KEY(5)OFF:C=10 

15010 H1~0:H2=0:H3=0:X1~1:X2“2:X3-3 
15020 Y1=0:Y2=0:Y3=0 
15030 PUT SPRITE 7,(22,28),XI,XI 
15040 PUT SPRITE 8,(62,28),X2,X2 
15050 PUT SPRITE 9,(102,28),X3,X3 
15090 RETURN 500 

19999 ' 

20000 LINE (130,15)-(222,30),6,BF 
20010 PRESET(136,20) 

20020 PRINT# 1,USING"TEGOED####";C 
20030 BEEP:PLAY’’S9M9999N80" 

20040 RETURN 

30000 COLOR 15,1,1:CLS 

30005 ' RAND 

30010 LINE (5,5)-(250,185),13,B 
30020 LINE (0,0)^(255,191),13,B 
30030 PAINT (1,1),13 
30035 ' SPRITE HOKJES 
30040 FOR 1=15 TO 120 STEP 40 
30050 LINE (I,15>-(1+30,60),13,B 
30060 LINE (1+1,16)-(1+29,59),13 ,B 
30070 LINE (1+6,17)-(I+24,58),15,BF 
30110 LINE (I,86)-(1+30,120),13,B 
30120 LINE (1+1,87)-(I+29,119),13,B 
30140 LINE (I,136)-(I+30,170),13,B 
30150 LINE (1+1,137)~(I+29,169),13 ,B 
30160 NEXT 

30165 PSET(0,0),1:PSET(255,0),1:LINE(0,1 
)-(l,0),l:LINE(254,0)-(255,l),l 
30170 LINE (136,136)-(166,170),10,B 
30175 LINE (137,137)-(165,169),10,B 
30195 ' GELDGLEUF 
30200 LINE (229,15)-(242,60),4,B 
30205 LINE (230,16)-(241,59),4,B 
30210 LINE (234,20)-(237,55),15,BF 
30220 ' 

30230 LINE(15,6)-(125,16),13,BF 
30240 LINE(15,59)-(125,76),13,BF 

30248 ' 

30249 'CREDIT HOtCJE 
30260 C=0:GOSUB 20000 

30298 ' 

30299 'REST 

30300 DRAW"BM140,48C4R85H5R1F5G5L1E4L84" 
30310 PSET(140,53),1:PRINT#1,"GELDINWORP 

ti 

31320 PSET(230,68),1:PRINT#1, 

31330 PSET(25,175),1:PRINT#1,"Fl F2 

F3 F4" 

31498 ' 

31499 'SPRITES 

31500 FOR I=1T07 
31510 X$= , * ,, :FOR J=1T032 
31520 READ X:X$=X$+CHR$(X) 

31530 NEXT 

31540 SPRITE$(I)=X$ 

31550 NEXT 

31598 ' 

31599 'SPRITE 0 

31600 X$="":FOR I=1T032 
31610 X$=X$+CHR$(255) 

31620 NEXT 

31630 SPRITE$(0)=X$ 



31640 




31650 

PUT 

SPRITE 

13 

31660 

PUT 

SPRITE 

14 

31670 

PUT 

SPRITE 

15 

31698 




31740 

PUT 

SPRITE 

10 

31750 

PUT 

SPRITE 

11 

31760 

PUT 

SPRITE 

12 

31798 




31799 

'SPRITE DATA 

31800 

DATA 1,3 

,7, 


127, 

63,31, 

15, 


31810 


,248,252,254,255,255,254,252,248,2 

40.224.192.128 

DATA 1,2,1,1,3,7,15,15,15,15,15,15 
,31,63,63,1,128,64,128,128,192,224 
,240,240,240,240,240,240,248,252,2 

52.128 

31820 DATA 1,1,3,3,7,255,127,63,31,15,15 
,31,28,56,112,192,128,128,192,192, 
224,255,254,252,248,240,240,248,56 
,28,14,3 

31830 DATA 31,63,127,255,252,248,120,56, 
0,1,3,3,3,0,3,3,252,254,255,255,31 
,31,62,124,248,240,224,224,224,0,2 
24,224 

31840 DATA 1,3,7,14,28,56,112,224,224,11 
2,56,28,14,7,3,1,128,192,224,112,5 
6,28,14,7,7,14,28,56,112,224,192,1 
28 


31850 


31860 


31870 

31880 

31890 

31900 

31910 

31920 

31930 

31998 

39999 


DATA 255,255,255,0,225,146,146,227 
,227,146,146,226,0,255,255,255,255 
,255,255,0,142,73,73,206,206,74,73 
,73,0,255,255,255 

DATA 240,240,240,240,240,240,255,2 
55,255,255,240,240,240,240,240,240 
,15,15,15,15,15,15,255,255,255,255 
,15,15,15,15,15,15 


PUT SPRITE 
PUT SPRITE 
PUT SPRITE 
PUT SPRITE 
PUT SPRITE 
PUT SPRITE 


1, (22,0),13,0 

2, (62,0),13,0 

3, (102,0),13,0 

4, (22,58),13,0 

5, (62,58),13,0 

6, (102,58),13,0 


RETURN 
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CONTROLE TELLING 


Rege 
Rege 

Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Regel 
Rege 
Rege 
Reget 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 


HINE 



Regel 

1370 - 

10 


0 

Re gel 

1400 - 

20 

— 

0 

Regel 

1410 - 

30 

w 

0 

Regel 

1420 - 

40 

- 

0 

Reget 

1450 - 

50 

* 

0 

Regel 

1998 - 

60 

* 

0 

Rege! 

1999 - 

70 

- 

361 

Rege 1 

2000 - 

80 

* 

569 

Rege! 

2005 - 

90 

* 

443 

Re gel 

2010 - 

100 

* 

702 

Regel 

2020 - 

105 

— 

389 

Reget 

2030 - 

110 

— 

131 

Re gel 

2040 - 

120 

— 

533 

Rege! 

2050 - 

125 

— 

275 

Rege! 

2060 - 

130 

* 

940 

Regel 

2070 - 

135 

* 

131 

Regel 

2080 - 

150 


320 

Rege l 

2090 - 

198 


0 

Regel 

2095 - 

199 

* 

0 

Regei 

2100 - 

200 

_ 

1932 

Regel 

4998 - 

210 


456 

Regel 

4999 - 

220 


1515 

Regel 

5000 - 

225 


892 

Rege! 

5005 - 

230 


1527 

Rege 1 

5007 - 

240 


892 

Reget 

5010 - 

498 


0 

Regel 

5020 - 

499 


0 

Regel 

5030 - 

500 


233 

Regel 

5040 - 

510 


599 

Regel 

5050 - 

520 

_ 

599 

Rege! 

5060 - 

600 

• 

538 

Rege! 

5070 - 

998 

— 

0 

Regel 

5080 - 

999 

* 

0 

Regel 

5090 - 

1000 


721 

Regel 

5100 - 

1005 

— 

308 

Regel 

5110 - 

1010 


720 

Regel 

5120 ~ 

1020 


2378 

Regel 

5150 - 

1030 

** 

2424 

Reget 

5160 - 

1040 

w 

1866 

Reget 

5170 - 

1050 


131 

Re get 

5180 - 

1060 


0 

Reget 

5190 - 

1070 


0 

Re gel 

5200 ~ 

1100 


2725 

Rege l 

10998 - 

1110 

• 

2729 

Rege 1 

10999 - 

1120 

— 

2129 

Reget 

11000 * 

1130 


0 

Re get 

11010 - 

1140 

— 

0 

Regel 

11020 - 

1200 


969 

Rege! 

11050 - 

1210 

— 

2378 

Rege! 

11998 - 

1220 

- 

2424 

Rege! 

11999 - 

1230 

- 

1866 

Regel 

12000 - 

1240 

* 

131 

Regel 

12010 - 

1250 

- 

0 

Regel 

12020 - 

1260 

- 

0 

Re get 

12050 - 

1300 

- 

2347 

Reget 

12998 - 

1310 

- 

733 

Re gel 

12999 - 

1340 

- 

2393 

Rege l 

13000 - 

1350 

* 

733 

Regel 

13010 - 

1360 

- 

1835 

Reget 

13020 - 


0 

1020 

1441 

2118 

204 

0 

0 

1040 

1175 

377 

909 

950 

991 


233 

894 

1153 

1475 

920 

396 

0 

0 

377 

1865 

920 

455 

783 

1540 

665 

740 

690 

459 

695 

730 

1584 

1409 

1577 

599 

541 

760 

632 

204 

386 

0 

0 

1112 

1641 

1643 

401 

0 

0 

1114 

1683 

1685 

401 

0 


Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege ! 


Rege 
Rege 
Rege 
Rege 
Rege 
Re gel: 
Regel: 
Re ge 1: 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 


Rege 


Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 


1116 

1725 

1727 


Rege 

Rege 

Rege 

Rege 

Rege 




13050 

13998 

13999 

14000 
14010 
14020 
14030 
14040 
14050 
14060 
14070 
14080 
14090 
14100 
14105 
14110 

14120 

14130 

14140 

14150 

14200 

14998 

14999 

15000 
15010 
15020 
15030 
15040 
15050 
15090 

19999 

20000 
20010 
20020 
20030 
20040 
30000 
30005 
30010 
30020 
30030 
30035 
30040 
30050 
30060 
30070 
30110 
30120 
30140 
30150 

30160 

30165 

30170 

30175 

30195 

30200 

30205 

30210 

30220 

30230 


401 

0 

0 

541 
737 

1392 

1393 

1394 
1346 
1389 
1432 
1069 

204 

1541 

1543 

2304 

2455 

760 

632 

131 

396 

0 

0 

542 
377 


1013 

1056 

1099 

401 

0 

1371 

506 

1244 

192 

142 

343 

0 

1358 

1359 
424 

0 

1099 

1386 

1644 

1363 

1517 

1775 

1617 

1875 

131 

415 

1514 

1514 

0 

1448 

1448 

1527 

0 

1143 


Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 


Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 


Rege 

Rege 

Rege 

Rege 

Rege 


30240 

30248 

30249 
30260 

30298 

30299 

30300 
30310 
31320 
31330 

31498 

31499 

31500 
31510 

31520 

31530 

31540 

31550 

31598 

31599 

31600 
31610 
31620 
31630 
31640 
31650 
31660 
31670 
31698 
31740 
31750 
31760 

31798 

31799 
31300 
31810 
31820 
31830 
31340 
31850 
31360 
31S70 
31380 
31890 
31900 
31910 
31920 
31930 
31998 
39999 


1254 

0 

0 

323 

0 

0 

1945 

604 

709 

611 

0 

0 

701 

431 

223 

131 

752 

131 

0 

0 

431 

1484 

131 

696 

0 

909 

950 

991 

0 

851 

894 

937 

0 

0 

5510 

5168 

5306 

5167 

4994 

5783 

5768 

0 

752 

793 

834 

579 

620 

661 

0 

142 


Totaat: 206168 



♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 


Korrektie MSX-MAN 

In de tekst op pag. 9 van het vorige nummer 
staat bij CHR$(7) = GRAPH+0. Dit moet zijn: 
GRAPH+9 !! 

Daaronder staat bij CHR$(22) geen token. 

Dit moet worden: SHIFT+GRAPH+\ 


Sorry. De listing zelf is ujel goed 
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Voor de liefhebbers deze keer ook eens 
een schietspelletje. Het verhaal is 
bekend: verdedig je planeet tegen 
indringers. De indringer van deze maand 
is 'De grote enge stuiter- ZWORK 1 . 

Het gebeuren speelt zich af op de 
planeet Geranus II; welbekend om zijn 
twee zonnen. Je moet met je laserkanon 
de planeet tegen de ZWORK beschermen en 
daar heb je vijf rondes en maximaal 
drie kanonnen voor. De zonnen gaan 
tijdens het spelen onder (in de laatste 
ronde is het bijna geheel donker) en de 
aanvallen volgen elkaar in elke ronde 
sneller op. 

HET PROGRAMMA 


doorlopen. Doe je er erg lang over dan 
krijg je alleen de 100 punten voor de 
ronde. Er zijn vijf rondes. Uitbreiding 
van dit spel is erg eenvoudig. 

VARIABELEN 

XI,X2,X3,Y2,Y3 zijn de variabelen voor 
de coordinaten van de drie sprites. N1 
en N2 zijn hulpvariabelen om de 
coordinaten om te draaien (van positief 
naar negatief en omgekeerd) als een 
rand wordt geraakt. 

De rest van de variabelen bestaat uit 
tellers voor score, loops, snelheid 
enz. 

Succes.Alfred. 


Ondanks het feit dat dit spel in Basic 
is geschreven, is het voldoende snel om 
een behoorlijke spelkwaliteit te 
krijgen. Als je de listing doorworstelt 
zul je zien dat het eigenlijke 
spelgedeelte zo krap mogelijk is 
gehouden? zo min mogelijk instrukties, 
weinig variabelen en geen extra's zoals 
een scoretelling tijdens het spel. 

Door deze punten goed in de gaten te 

houden is het best mogelijk om een 
behoorlijk arcadespel met pittige 

snelheden te maken. 

Alles wat dan ook niet direkt met het 
spel zelf te maken heeft zit in aparte 
routines. 

Er kan gespeeld worden met keyboard of 

joystick. De score wordt samengesteld 
uit een vast aantal punten voor een 
ronde met daarbij punten voor de 
snelheid waarmee je de ronde hebt 
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10 '*** ZWORK *** 

15 BEEP 
20 ' 

25 FOR I=0TO96STEP6 
30 PLAY"S15M300N=I;" 

35 NEXT 

50 CLEAR200:CLS:KEYOFF 
60 DEFINT A-Z 

70 X=RND(-TIME):SCREEN 2,0,0 

80 XI=0;X2=0:X3=0:Y2=0:Y3=0 

90 N1=0:N2=0 

100 FOR I=1T03 

110 X$="":FOR J=1T08:READ X 

120 X$=X$+CHR$(X):NEXT J 

130 SPRITE$(I)=X$:NEXT I 

150 DATA 24,24,219,219,255,255,219,129 

160 DATA 129,129,129,0,0,129,129,129 

170 DATA 60,126,255,195,255,255,126,60 

190 GOSUB 20000 

200 GOSUB 10000 

400 TIME=0 

410 ON L GOSUB 1000,2000,3000,4000 

498 ' 

499 ' DE ZWORK ZWORKT 

500 I-STICK(Q) 

510 IF 1=7 THEN Xl=Xl-4 
520 IF 1=3 THEN Xl=Xl+4 
530 IF XI<9THENX1=Xl+4 
540 IF XI>240 THEN Xl=Xl-4 
550 PUT SPRITE 1,(XI,172),15,1 
600 X3=X3+Nl:Y3=Y3+N2 
610 PUT SPRITE 3,(X3,Y3),,3 
620 IF X3<XTHEN Nl=Nl+X 
630 IF X3>254-X THEN Nl=Nl-X 
640 IF Y3<X THEN N2=N2+X 
650 IF Y3M74-X THEN N2=N2-X 
800 IF Y2O209 THEN Y2=Y2-8:GOTO 850 
810 IF STRIG(Q)= -1 THEN X2=X1:Y2=162:SO 
UND7,7:SOUND6,1:SOUND8,16:SOUNDll,79 
:SOUND12,27:SOUND13,15 
850 PUT SPRITE 2,(X2,Y2),15,2 
870 IF Y2<20 THEN Y2=209 
950 GOTO 500 

998 ' 

999 ROHDE 1 

1000 LINE (0,180)-(255,160),9,BF 

1005 DRAW "BM7,160C9E10R2E5R2E20R3E10F10 
E20F20E5F30E5F10R20E30R2F10D5F20" 
1010 PAINT (10,159),9 
1020 CIRCLE (50,40),20,11 
1030 PAINT (50,40),11 
1040 PSET(40,30),1:PSET(60,50),1 
1050 PSET(45,35),1:PSET(57,47),1 
1060 PSET(35,40),1:PSET(65,40),1 
1070 CIRCLE (200,40),10,11 
1080 PAINT (200,40),11 
1090 PUT SPRITE 3,(X3,Y3),3,3 
1100 N1=10:N2=10:X=10 
1888 RETURN 

1998 ' 

1999 ' RONDE 2 

2000 LINE (0,180)-(255,160),8,BF 

2005 DRAW , ‘BM7,160C8E10R2E5R2E20R3E10F10 
E20F20E5F30E5F10R20E30R2F10D5F20" 


2010 PAINT (10,159),8 

2020 CIRCLE (50,40),20,1 

2030 PAINT (50,40),1 

2040 PSET(40,30),1:PSET(60,50),15 

2050 PSET(45,35),1:PSET(57,47 ),15 

2060 PSET(35,40),1:PSET(65,40),15 

2070 CIRCLE (200,40),10,1 

2080 PAINT (200,40),1 

2120 CIRCLE (50,80),20,10 

2130 PAINT (50,80),10 

2170 CIRCLE (200,80),10,10 

2180 PAINT (200,80),10 

2190 PUT SPRITE 3,(X3,Y3),12,3 

2500 Nl=15:N2=15:X=15 

2888 RETURN 

2998 ' 

2999 ' RONDE 3 

3000 CIRCLE (50,80),20,1 
3005 PAINT (50,80),1 
3010 CIRCLE (200,80),10,1 
3020 PAINT (200,80),! 

3100 CIRCLE (50,120),20,13 
3110 PAINT (50,120),13 

3200 LINE (0,180)-(255,160),6,BF 
3205 DRAW "BM7,160C6E10R2E5R2E20R3E10F10 
E20F20E5F30E5F10R20E30R2F10D5F20” 
3210 PAINT (10,159),6 
3220 PUT SPRITE 3,(X3,Y3),12,3 
3600 Nl=20:N2=20:X=20 
3888 RETURN 

3998 ' 

3999 ' RONDE 4 

4000 CIRCLE (50,120),20,0 
4010 PAINT (50,120),0 

4020 LINE (0,180)-(255,160),13,BF 
4030 DRAW ”BM7,160C13E10R2E5R2E20R3E10F1 
0E20F20E5F30E5F10R20E30R2F10D5F20” 
4040 PAINT (10,159),13 
4120 PUT SPRITE 3,(X3,Y3),1,3 
4200 N1=9:N2=9:X=9 
4888 RETURN 
9998 ' 

9999. ' ACHTERGROND ALLE SCHERMEN 
10000 SCREEN 2:COLOR 15,1,1 
10050 FOR 1=0 TO 130 STEP 6 
10060, FOR 3=0 TO 255 STEP 6 
10070 X=RND(1)*20 

10080 IF X=5 THEN PSET(J,I),15:BEEP 
10090 NEXT:NEXT. 

10100 XI=125 

10110 X2=255:Y2=209 

10130 X3=RND(1)*10+1:Y3=6 

10150 PUT SPRITE 1,(XI,172),15,1 

10160 PUT SPRITE 2,(X2,Y2),0,2 

10165 X3=X3*20 

10170 PUT SPRITE 3,(X3,Y3),0,3 

10190 SPRITE ON 

10200 ON SPRITE GOSUB 30000 

11000 RETURN 

19998 ' 


8 
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19999 " INTRO SCHERM 

20000 SCREEN1:COLOR 15,1,1:CLS 
20010 WIDTH32:LOCATE,,0 
20020 PRINT:PRINT 

20030 PRINTTAB(6)" - 


20040 PRINTTAB(6)"| MS X- ZWORK |" 
20050 PRINTTAB(6)" - 


20070 PRINTTAB(6)" (c) 1986 MSX-GIDS 
20080 PRINTTAB(6)"| Amsterdam 
20090 PRINTTAB(6)" - 


20100 

20110 

20120 

20130 

20140 

20150 

20160 

20170 

20190 

20200 

20210 

20220 

20250 

29998 

29999 

30000 
30002 

30005 

30006 
3 0007 

30009 

30010 
30015 
30020 
30030 
30040 
30050 
30090 
30100 
30120 
32000 
32010 
32020 
32030 
32050 
32060 


LOCATE 0,17,0;Q=0:L=1:S=0:SH=3:SC= 

0 

PRINTTAB(6)" 

PRINTTAB(6)” 

PRINTTAB(6)" 

X$=SPACE$(17)+"[ J ]= Jo ys t ic k "+S PACE 
$(15)+"[K]=Keyboard " 

FOR 1=1 TO LEN(X$) 

LOCATE 7,18:PRINT MID$(X$,1,17) 
LOCATE 7,18:FOR J=1 T099:NEXT J 
Q$=INKEY$: IF Q$=" ,, THEN NEXT 
IF Q$= "J "OR Q$= ,, j"THEN Q—Is RETURN 
IF Q$="K"OR Q$="k”THEN RETURN 
PLAY"S15M1000O8C" 

GOTO 20150 



' BOTSING 
SPRITE OFF 

SOUND7,7:SOUND6,13:SOUND8,16:SOUND 

11,158:SOUND12,54:S0UND13,9 

FOR I=1T015 

COLOR ,,I 

FOR J=1T015 

COLOR ,,J 

NEXT:NEXT 

COLOR 15,1,1 

IF Y3=>162 THEN SH=SH-1: GOTO 30090 

L=L+1:SC=SC+100 

S=2000-TIME:IF S>0THENSC=SC+S 

IF L=5 THEN 32000 

IF SH=<0 THEN 32000 

GOSUB 10100 

GOTO 400 

SCREEN1:COLOR 15,1,1:CLS 
PRINT"AANTAL SCHEPEN: ";SH:PRINT 
PRINT*' RONDE: ”;L: PRINT 

PRINT" SCORE: SC:PRINT 

GOSUB 20100 
GOTO 200 
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Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Re ge 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege I 

Rege l 

Rege l 


10 

- 

0 

15 

- 

192 

20 

* 

0 

25 

- 

1030 

30 

- 

941 

35 

- 

131 

50 

- 

361 

60 

- 

569 

70 

- 

1244 

80 

- 

393 

90 

- 

383 

100 

— 

697 

110 

- 

431 

120 

- 

1302 

130 

— 

752 

150 

- 

1580 

160 

- 

1472 

170 

“ 

1577 

190 

- 

233 

200 

- 

210 

400 

- 

459 

410 

- 

1374 

498 

- 

0 

499 

- 

0 

500 

- 

391 

510 

- 

1469 

520 

- 

1464 

530 

- 

1535 

540 

- 

1763 

550 

- 

1025 

600 

- 

885 

610 

- 

954 

620 

* 

1646 

630 

- 

2156 

640 

- 

1649 

650 

- 

2079 

800 

- 

1982 

810 

- 

1950 

850 

- 

980 

870 

- 

1373 

950 

* 

396 

993 

- 

0 

999 

- 

0 

1000 

- 

1574 

1005 

- 

3811 

1010 

— 

585 

1020 

- 

582 

1030 

- 

506 

1040 

- 

481 

1050 

- 

491 

1060 

- 

486 

1070 

- 

722 

1080 

- 

656 

1090 

- 

974 

1100 

- 

391 

1888 

- 

142 

1998 

- 

0 

1999 

- 

0 

2000 

- 

1573 

2005 

- 

3810 

2010 

- 

584 

2020 

- 

574 

2030 

* 

498 

2040 

- 

481 

2050 

* 

491 

2060 

- 

486 

2070 

- 

714 

2080 


648 

2120 

- 

621 

2130 

- 

545 

2170 

- 

761 

2160 

- 

695 

2190 

- 

981 

2500 

- 

396 

2888 

- 

142 

2998 

- 

0 

2999 

- 

0 

3000 

- 

614 

3005 


538 

3010 

- 

754 

3020 

- 

688 

3100 

- 

664 

3110 

— 

588 


Regel: 

3200 

- 

1571 

Regel: 

3205 

- 

3808 

Regel: 

3210 

- 

582 

Rege1: 

3220 

- 

981 

Reget: 

3600 

- 

401 

Regel: 

3888 

- 

142 

Regel: 

3998 

- 

0 

Reget: 

3999 

• 

0 

Reget: 

4000 

- 

653 

Regel: 

4010 

- 

577 

Regel: 

4020 

- 

1576 

Regel: 

4030 

- 

3854 

Regel: 

4040 


587 

Regel: 

4120 

- 

972 

Regel: 

4200 

- 

392 

Regel: 

4888 

- 

142 

Regel: 

9998 

- 

0 

Rege1: 

9999 

“ 

0 

Regel: 

10000 

- 

216 

Rege t: 

10050 
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SPORTVISSER 

Voor deze maand maar eens een lastig 
behendigheidsspel. Over het prograrama 
zelf is weinig schokkends te melden; 
alles is rechttoe- rechtaan 
geprogrammeerd zonder bijzondere 
nieuwigheidjes. Het hoofdprogramma is 
tweemaal geschreven: 1 keer voor de 
beweging omhoog en 1 keer voor de 
beweging naar beneden, zodat een flinke 
snelheid bereikt is. 

HET SPEL 

Het is de bedoeling met het haakje aan 
de hengel de vissen te vangen. De 
gevangen vis moet dan ook nog in de 
mand gemikt worden. Het 'hengelen' 

gebeurt met de cursortoetsen (omhoog / 
omlaag) en het vangen van de vis 
gebeurt met de spatiebalk. Op het 
juiste moment de spatiebalk indrukken 
en de vis is gevangen. Ook het mikken 
op de mand gebeurt met de spatiebalk. 
Wanneer op het juiste moment de 
spatiebalk ingedrukt wordt tijdens het 
zwaaien komt de vis in de mand. Wanneer 
te vroeg of te laat wordt gedrukt komt 
de vis respectievelijk voor of achter 
de mand terecht. 

Het spel heeft een beperkte tijdsduur 
en het is dan ook de bedoeling binnen 
dat tijdsbestek zoveel mogelijk punten 
te behalen. Het indrukken van de 
spatiebalk kost erg veel tijd,' dit om 
te voorkomen dat er *valsgespeeld f 
wordt. 



DE PUNTENTELLING 

Het vangen van een vis levert 50 punten 
op plus het aantal punten voor de nog 
resterende tijd. Deze tijd is verdeeld 
in 254 punten wat overeen komt met de 
254 posities van de balk boven aan het 
beeld. Een extra bonus is te verkrijgen 
voor het vangen van een vis voordat de 
eerste 50 punten van de tijd zijn 

verstreken. Het in de mand werpen van 
de vis levert 100 punten op plus weer 
het aantal punten van de resterende 
tijd. Ook hier is weer een bonus te 
halen zolang de balk nog boven positie 
200 is. Het is dus een kwestie van snel 
vangen met zo min mogelijk indrukken 
van de spatiebalk. Het mikken op de 
mand is alleen een kwestie van 
'timing'. Wanneer de tijd is verstreken 
wordt het spel opnieuw gestart en bij 
een scoreverbetering wordt de nieuwe 
score in 'Hi-score' gezet. 

Dit spel is zeker niet makkelijk en het 
zal de meesten dan ook vele uren 
plezier bezorgen. / 

Goede vangst.Alfred. 

10 -************************* 

ir* S P 0 R T V I S S E R * 

20 '* door: Alfred Debels * 

25 '* (c) 1986 De MSX-Gids * 

30 '* Amsterdam * 

35 ^************************* 

50 KEYOFF:CLEAR 200:SCREEN2,0,0,1,1 

60 COLOR 15,1,1:LOCATE,,0:DEFINT A-Z 

70 OPEN"GRP:"FOR OUTPUT AS#1 

80 X=0:Y=0:SC=0:HS=0:T=255 

85 V=*1:X1=128:Y1=99 

90 GOSUB 10000 

200 Y-RND(1)*75+110 

220 V=RND(1)*2+l 

240 GOSUB 1900 

245 IF TC1THEN GOSUB 600 

250 IF STICK(0)=1 THEN Q=-1:GOTO 300 

280 IF STICK(0)“5 THEN Q-l: GOTO 400 

290 IF Q=1THEN400 

298 ' 

299 'OMHOOG 

300 PUT SPRITE 1,(X,Y),15,1 

310 IF STRIG (0 ) =-l THEN GOSUB 500- 
320 X=X+V 
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330 IF Yl>99 THEN Yl=Yl+Q ELSE Q=1 

340 PSET(Xl-1,Yl) , 1 

345 PUT SPRITE 1,(X,Y),15,2 

350 PSET(Xl-1,Yl+1), 4:PSET(XI,Yl+1),4 

360 IF STRIG(0)=-1THEN GOSUB500 

370 X=X+1 

380 IF X>254 THEN X=0:GOTO200 
390 GOTO 250 

398 ' 

399 'OMLAAG 

400 PUT SPRITE 1,(X,Y),15,1 

410 IF STRIG(0)=-lTHEN GOSUB 500 
420 X=X+V 

430 IF Yl <190 THEN Y1=Y1+QELSE Q=-l 

440 PSET (Xl-1,Yl),1: PSET (XI, Yl), 1 

445 PUT SPRITE 1,(X,Y),15,2 

450 PSET(Xl-l,Yl-1),4 

460 IF STRIG(0)=-lTHEN GOSUB 500 

470 X=X+1 

480 IF X>254 THEN X=0:GOTO200 
490 GOTO 250 

498 ' 

499 'SPATIEBALK GEDRUKT 

500 GOSUB 1900 
510 IF T<1THEN600 

530 IF X+8=X1 AND Y+4=Yl THEN 700 
540 IF X+8=X1-1 AND Y+4=Yl THEN 700 

550 IF X+8=X1+1 AND Y+4=Y1 THEN 700 

560 IF X+8=Xl-2 AND Y+4=Y1 THEN 700 

590 RETURN 

600 LINE(128,50)-(X,90),12 

610 FOR T=0 TO 254 

620 LINE(T,24)-(T,26),1:NEXT 

630 X=0:X1-128:Yl=99 

640 IF SC>HS THEN HS=SC 

650 SC=0:GOSUB 1950 

660 LINE(128,50)-(128,98),l 

670 LINE(128,99)-(128,191),4 

690 RETURN 200 

700 X=X+5: Y=Y+6 

710 PUT SPRITE 1,(X,Y),15,3 

720 SC=SC+50:SC=SC+T 

725 IF T>200 THEN SC=SC+T 

730 GOSUB 1900 

740 IF T<1THEN600 

748 ' 

749 ' VIS OMHOOG HALEN 

750 FOR I=Y1 TO 90 STEP -1 
760 PSET(Xl-1,1),1:SOUND2,40 

770 PSET(Xl-1,1+1),4:PSET(XI,1+1),4 

780 PUT SPRITE 1,(X,Y),15,3 

790 Y=Y-1:SOUND12,1:SOUND0,1:SOUND13,8 

800 NEXT 

805 GOSUB 1950 

808 ' 

809 'HALVE ZWAAI RECHTS 

810 FOR X=128 TO 140 

840 LINE(128,50)-(X,90), 1 
845 LINE(128,50)-(X-l,90),12 
850 PUT SPRITE 1,(X-4,90),15,3 
860 NEXT 
870 GOSUB 1900 

880 IF T<1THEN X=X-l:GOTO 600 
888 ' 


889 ' HELE ZWAAI LINKS 
900 FOR X=140 TO 100 STEP-1 
930 LINE(128,50)-(X,90),1 
935 LINE(128,50)-(X+l,90),12 
950 PUT SPRITE 1,(X-4,90),15,3 
955 IF STRIG(0)“-1 THEN 1500 
960 NEXT 
970 GOSUB 1900 

980 IF T<1THEN X=X+i:GOTO 600 

998 ' 

999 'HELE ZWAAI RECHTS 

1000 FOR X=100 TO 140 
1030 LINE(128,50)-(X,90),1 
1035 LINE(128,50)-(X-l,90),12 
1050 PUT SPRITE 1,(X-4,90),15,3 
1055 IF STRIG(0)=-l THEN 1500 
1060 NEXT 

1070 GOSUB 1900 

1080 IF T<1THEN X=X-l:GOTO 600 
1100 GOTO 900 

1498 ' 

1499 'VIS NAAR MAND 

1500 LINE(128,50)-(X,90),12 

1505 X=X-4:Y=90:SOUND2,20:SOUND12,1 

1510 IF X<112 THEN 1600 

1520 IF X>114 THEN 1700 

1530 FOR 1=1 TO 16:X=X-1:Y=Y-1 

1535 SOUND0,I*10:SOUND13,8:SOUND12,1 

1540 PUT SPRITE 1, (X, Y) , 15,3-.NEXT 

1550 FOR 1=1 TO 14:X=X-1 

1555 SOUND0,1*10:SOUND13,8:SOUND12,1 

1560 PUT SPRITE l,(X,Y),15,3:NEXT 

1570 FOR 1=1 TO 16:X=X-1:Y=Y+1 

1575 SOUND0,J*10:SOUND13,8:SOUND12,1 

1580 PUT SPRITE 1,(X,Y),15,3:NEXT 

1585 FOR 1=1 TO 5:SOUND2,10 

1586 FOR J=10 TO 50 

1587 SOUND 13,8:SOUND12,1:SOUND0,J 

1588 NEXT:NEXT 

1590 SC=SC+100:SC=SC+T 
1592 IF T>200 THEN SC=SC+T 
1594 GOSUB 1950 
1598 GOTO 1680 
1600 'TE VER 

1610 FOR 1=1 TO 20:X=X-1:Y=Y-1 
1615 SOUND0,1*10:SOUND13,8:SOUND 12,1 
1617 PUT SPRITE 1,(X,Y),15,3:NEXT 
1620 FOR 1=1 TO 20:X=X-1 
1625 SOUND0,1*10:S0UND13,8:S0UND12,1 
1627 PUT SPRITE l,(X,Y),15,3:NEXT 
1630 FOR 1=1 TO 20:X=X-1:Y=Y+1 
1635 SOUND0,1*10:S0UND13,8:SOUND 12,1 
1637 PUT SPRITE 1,(X,Y),15,3:NEXT 
1640 SC=SC-25:GOSUB1950 
1650 FOR I=1TO40:X=X-1:Y=Y+1 
1655 SOUND0,1*6:S0UND13,8:S0UND12,1 
1660 PUT SPRITE 1,(X,Y),15,3:NEXT 
1670 ' 

1680 LINE(128,50)-(128,98),1 
1685 Yl=99 
1690 RETURN 200 
1700 'TE DICHTBIJ 

1710 FOR I=1TO10:X=X-1:Y=Y-1 

1715 SOUND0,I*10:SOUND13,8:SOUND12,1 
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1717 PUT SPRITE l,(X,Y),15,3:NEXT 
1720 FOR I=1TO10:X=X-1:Y=Y+1 
1725 SOUND0,1*10:SOUND13,8:SOUND12,1 
1727 PUT SPRITE 1,(X,Y),15,3:NEXT 
1730 GOTO 1640 
1898 ' 

'.899 ''SUBROUTINE TIJDBALK 
1900 SOUND 12,10 

1902 SOUND 0,T:SOUND2,150:SOUND!3,9 
1905 LINE(T,24)-(T,26),15 
1910 T=T-1:RETURN 

1920 ' 

1950 SOUND 12,50 

1952 SOUND 13,15:SOUND0,60:SOUND2,150 
1955 LINE(0,0)-*(255,10), 12,BF 
1960 COLOR 1:FOR I=1TO50:NEXT 
1970 PSET (2,2 ): PRINT #1, USING "SCORE: ##### 
*’; SC 

1980 PSET (140,2 ) : PRINT//1, USING "HI-SCORE: 

#####";HS 
1990 RETURN 

9998 ' 

9999 ' ACHTERGROND OPMAKEN 

10000 COLOR 12 

10020 LINE(0,0)-(255,100),12,BF 
10030 LINE(0,101)-(255,191),4,BF 
10040 COLOR1 
10045 ' 

10050 LINE(160,79)-(l50,85) 

10060 LINE(161,79)-(166,82) 

10070 LINE(160,84)-(150,90) 

10080 LINE(161,84)-(166,88) 

10085 LINE(150,90)-(144,85) 

10087 DRAW"U1R1U1R2DIR2” 

10090 ' 

10100 LINE(161,86)-(154,90) 

10110 LINE(166,89)-(158,92) 

L0120 LINE(158,92 )-(158,99) 

10130 LINE(158,99)-(152,99) 

10140 DRAW"L2U1R1U1R3U6" 

10160 PSET(166,89) 

10170 DRAW”R1D1R5U1R3U1R2U2R1U3R1U8L1U1L 
1U1L3D1L1D6L6D3R10U2R1" 

10190 ' 

10200 CIRCLE(174,67),6 
10210 LINE(174,65)-(171,70) 

10220 LINE(172,70)-(175,70) 

10230 PSET(171,66):PSET(176,66) 

10240 LINE(167,63)-(181,63) 

10250 LINE(169,62)-(179,62) 

10260 LINE(171,61)-(177,61) 

10270 LINE(173,60)-(176,60) 

10280 PSET(171,74 ) 

10290 DRAW"D1L2D2L1D2L1D2L2D1L1" 

10300 ' 

10320 LINE(166,90)-(l78,90) 

10330 LINE(166,91)-(178,91) 

10340 LINE(178,90)-(182,70) 

10350 LINE(179,91)-(183,70) 

10360 LINE(168,90)-(165,99) 

10370 LINE(176,90)-(179,99) 

10380 LINE(166,90)-(161,97) 

10400 ' 



10420 COLOR 4 

10430 LINE(100,100)-(144,100) 

10440 LINE(104,99 )-(l43,99) 

10450 LINE(106,98)-(142,98) 

10460 LINE(110,97)-(140,97) 

10470 LINE(112,96)-(138,96) 

10480 LINE(116,95)-(136,95) 

10490 LINE(120,94)-(l38,94) 

10500 LINE(124,93)-(140,93) 

10510 COLORI 

10520 LINE(0,100)-(100,100) 

10530 LINE(144,100)-(255,100) 

10600 ' 

10620 LINE(144,50)-(170,79) 

10630 LINE(146,51)-(170,81) 

10640 LINE(172,84)-(182,96) 

10650 PSET(144,50) 

10660 DRAW"L2U1L3U1L4D1L4D1L2" 

10668 ' 

10670 LINE(128,50)-(128,98) 

10680 CIRCLE(128,98),6,,,,.5 
10700 ' 

10710 ' SPRITES 
10720 FOR 1=1 TO 3 
10730 X$="" 

10740 FOR J=1 TO 8 
10750 READ X:X$=X$+CHR$(X) 

10760 NEXT J:SPRITE$(I)=X$ 

10770 NEXT I 
10780 X=RND(-TIME) 

10790 DATA 0,12,186,127,126,156,0,0 
10800 DATA 0,6,159,124,159,6,0,0 
10810 DATA 24,44,60,60,60,24,24,36 
10890 LINE(0,11)-(255,11),1 
10900 GOSUB 1950 

10920 PSET(10,15 ): PRINT//1, "TIME: " 
10930 LINE(0,13)-(50,13) 

10950 LINE(0,30)-(255,30) 

10970 LINE(50,13)-(50,20) 

10980 LINE(50,20)-(255,20) 

11000 FOR 1=0TO255 

11010 LINE(I,24)-(I,26):NEXT 

11020 ' 

11040 X=55:XI=80 

11050 FOR 1=90 TO 98 

11060 LINE(X,I)-(X1,I),1 

11070 IF t<95 THEN X=X+1:XI=X1-1 

11080 NEXT 

11090 Xl=128:X=0 
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11100 SOUND7,252:SOUND8,16:S0UND9,16 
11110 SOUND11,50:SOUND12,10:SOUND!,0 
11120 SOUND 0,50:SOUND13,9 
11130 SOUND 2,200:SOUND 3,0 
19999 RETURN 
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DRIE OP EEN RIJ 


BOTER/KAAS/EIEREN 

Een spelletje dat altijd leuk blijft en 
dus ook geschikt gemaakt moest worden 
voor de MSX. Hier is het dan. Veel 


5 ' BOTER,KAAS EN EIEREN 

10 CLEAR 200 :KEYOFF:SCREEN 2,2,0: COLOR 15 

, 1,1 

15 DEFINT A-Z: DIM D(9,3) 

20 OPEN"GRP:"FOR OUTPUT AS#1 
25 SOUND 7,254:SOUND 8,16:S0UND 0,0 
30 SOUND 1,0:SOUND 11,93:SOUND 12,1 

35 X$="" 

40 FOR 1=1 TO 32 
45 READ X:X$=X$+CHR$(X) 

50 NEXT:SPRITE$(1)=X$ 

70 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

131,199,238,252,248,252,254,255,0,0,0 

, 0 , 0 , 0 , 0,0 
80 GOSUB 540 
90 IF Q$='‘I"THEN 150 
100 M=INT(RND(1)*8+l.5) 

120 Z=Z+1:B(M)=10:A$(M)="X" 

130 GOSUB 740 

140 IF Z=9 THEN 1110 

150 GOSUB 850 

160 Z=Z+1 :B(M)=1: A$(M)="0'* 

170 IF Z=9 THEN 1110 
180 FOR K=1 TO 8 
190 S=0 

200 FOR J=1 TO 3 
210 S=S+B(D(K,J)) 

220 A(K)=S:NEXTJ 
230 IF S=3 THEN 1090 
240 IF S=20 THEN 440 
250 NEXT K 
260 FOR K=1 TO 8 
270 IF A(K)=2 THEN 440 
280 NEXT K 

290 FOR K=1 TO 8:C(K)=0:NEXT K 

300 FOR K=1 TO 8 

310 IFA(K)>0 THEN 330 

320 FOR J=1 TO 3:C(D(K,J))=C(D(K,J))+1:N 
EXT J 

330 IF A(K)>2 THEN 360 

340 FOR J=1 TO 3:C(D(K,J))=C(D(K,J))+1:N 
EXT J 

350 NEXT K 
360 V=0 

370 FOR K=1 TO 9 
380 IF B(K)<>0 THEN 410 
390 IF C(K)<V THEN 410 
400 V=C(K):M=K 
410 NEXT K 

420 IF Z=9 THEN 1110 

430 GOTO 120 

440 F0RJ=1 TO 3 

450 IF B(D(K, J)»0 THEN 470 



460 M=D(K,J) 

470 NEXT J 

480 IF S=20 THEN 500 
490 GOTO 120 

500 GOSUB 1200:PRESET(50,160) 

505 PRINT//l, "IK WIN..!!’* 

510 A$(M)="X" 

515 F0RI= : 1T0255:SOUND 13,9:SOUND0,1:NEXT 

520 GOSUB 740 

530 GOTO 1120 

540 CLS:FOR 1=1 TO 9 

550 A(I)=0:B(I)=0:C(I)=0:A$(I)="." 

560 NEXT 

570 FOR K=1 TO 8:FOR 1=1 TO 3 
580 READ D(K,I):NEXT I:NEXT K 
590 RESTORE 600 

600 DATA 1,2,3,4,5,6,7,8,9,1,5,9 
610 DATA 1,4,7,2,5,8,3,6,9,3,5,7 
620 Z=0 

630 LINE(60,40)-(190,45),4,BF 
640 LINE(60,90)-(190,95),4,BF 
650 LINE(100,0)-(105,140),4,BF 
660 LINE(145,0)-(150,140),4,BF 
670 GOSUB 1200 
690 COLOR 15:PRESET(50,160) 

700 PRINT#1,"SPATIEBALK - ZOEKEN" 

710 PRESET(50,180) 

720 PRINT#1,"(RETURN] = PLAATSEN" 

730 RETURN 

740 ' PLOT COMPUTER 

750 X=22:Y=10 

760 FOR 1=1 TO 9 

770 IFI=4 OR 1=7 THEN 800 

780 X=X+48:IF M=I THEN 810 

790 NEXT 

800 Y=Y+50:X=22:GOTO 780 
810 LINE(X,Y)-(X+12,Y+12),6 
815 LINE(X+l,Y)-(X+13,Y+12),6 
817 LINE(X-l,Y)-(X+l1,Y+l2),6 
820 LINE(X,Y+12)-(X+12,Y),6 
825 LINE(X+l,Y+12)-(X+13,Y),6 
827 LINE(X-l,Y+12)-(X+l1,Y),6 
.840 RETURN 
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850 ' PLOT SPELER 
860 X=28:Y=2 
870 FOR 1=1 TO 9 
880 IF 1=4 OR 1=7 THEN 980 
890 X=X+48:IF A$(I)“”X" OR A$(I)="0" THE 
N 950 

900 PUT SPRITE 1,(X,Y),15,1 

910 X$=INKEY$:IF X$="”THEN 910 

915 SOUND12,30:S0UND13,9:SOUND0,X+Y~28 

920 W=ASC(X$):IF W=32 THEN 950 

930 IF W=13 THEN 990 

940 GOTO 910 

950 NEXT I 

970 GOTO 850 

980 Y=Y+50:X=28:GOTO 890 
990 M«I:SOUND13,9:SOUND0,250 
1000 CIRCLE (X+2,Y+l4),8,12 
1010 CIRCLE (X+2,Y+14),7,12 
1080 RETURN 

1090 FORI=255TO1STEP-1:SOUND13,9:SOUND0, 
I:NEXT 

1095 GOSUB1200:PRESET(50,160) 

1100 PRINT//1,"JIJ WINT..M" 

1105 GOTO 1120 

1110 GOSUB1200: PRESET (50,160) 

1115 PRINT//1,‘*GELIJK SPEL” 

1120 PRESET(50,180) 

1125 PRINT//l,”NOG EEN KEER? J/N: 

1130 Q$=INKEY$: IF Q$= M "THEN1130 
1140 IF Q$=”N"OR Q$="n"THEN END 
1150 GOSUB1200:PRESET(10,180) 

1160 PRINT#1,"WIE B6GINT? JIJ OF IK J/I 
: tf * 

1170 Q$=INKEY$:IF Q$=""THEN1170 
1180 IF Q $=*" i " THENQ $= " I" 

1185 IF Q$=" j" THENQ $=”J" 

1190 IF Q $<> " J ”ANDQ $<> *' I **THEN 1170 
1195 GOTO80 

1200 LINE(0,155)-(255,191),1,BF 
1210 RETURN 



Beeldscherm van de sorteerdemo 
(zie volgende pagina) 


CONTROLE TELLING 

DR IE OP EEN RIJ 

Regel 

Regel 

760 - 
770 - 

703 

1290 





Regel 

780 - 

719 





Regel 

790 - 

131 

Regel 

5 

- 

0 

Regel 

800 - 

723 

Reget 

10 

— 

361 

Regel 

810 - 

1624 

Re get 

15 

— 

569 

Regel 

815 - 

1884 

Regel 

20 

— 

443 

Regel 

817 - 

1883 

Re ge 1 

25 

- 

533 

Regel 

820 - 

1624 

Regel 

30 


275 

Regel 

825 - 

1884 

Regel 

35 


431 

Re gel 

827 - 

1883 

Regel 

40 

— 

692 

Regel 

840 - 

142 

Reget 

45 

- 

223 

Regel 

850 - 

0 

Reget 

50 

- 

131 

Regel 

860 - 

370 

Re gel 

70 

- 

3892 

Regel 

870 - 

703 

Reget 

80 

— 

185 

Regel 

880 - 

1502 

Reget 

90 

- 

1018 

Regel 

890 - 

719 

Re gel 

100 

- 

1899 

Regel 

900 - 

878 

Regel 

120 

• 

678 

Regel 

910 - 

599 

Reget 

130 

* 

385 

Re gel 

915 - 

312 

Reget 

140 


816 

Rege! 

920 - 

935 

Re get 

150 

— 

240 

Regel 

930 - 

950 

Regel 

160 

* 

678 

Rege I 

940 - 

296 

Re get 

170 


816 

Re get 

950 - 

204 

Regel 

180 


704 

Reget 

970 - 

236 

Re get 

190 

— 

339 

Re gel 

980 - 

723 

Re get 

200 

* 

698 

Re get 

990 - 

389 

Regel 

210 

— 

1135 

Re gel 

1000 - 

1160 

Re gel 

220 

- 

543 

Regel 

1010 - 

1159 

Re gel 

230 

— 

783 

Regel 

1080 - 

142 

Regel 

240 

— 

913 

Rege 1 

1090 - 

1427 

Reget 

250 

* 

206 

Regel 

1095 - 

335 

Regel 

260 

- 

704 

Regel 

1100 - 

1043 

Regel 

270 

- 

1035 

Regel 

1105 - 

251 

Re gel 

280 

• 

206 

Re get 

1110 - 

335 

Regel 

290 

— 

704 

Regel 

1115 - 

1088 

Re gel 

300 

- 

704 

Reget 

1120 - 

580 

Regel 

310 

- 

922 

Regel 

1125 - 

1373 

Regel 

320 

- 

698 

Re gel 

1130 - 

592 

Reget 

330 

- 

954 

Regel 

1140 - 

1769 

Rege l 

340 

- 

698 

Regel 

1150 - 

335 

Re gel 

350 

- 

206 

Regel 

1160 - 

1913 

Re get 

360 

- 

342 

Regel 

1170 - 

592 

Regel 

370 

- 

705 

Regel 

1180 - 

1383 

Regel 

380 

- 

1243 

Regel 

1185 - 

1385 

Regel 

390 

* 

1075 

Rege I 

1190 - 

2240 

Re gel 

400 

- 

548 

Re gel 

1195 - 

231 

Regel 

410 

— 

206 

Regel 

1200 - 

1572 

Reget 

420 

- 

816 

Regel 

1210 - 

142 

Regel 

430 


271 



Re gel 

440 

- 

698 

To+ae1 

: 99020 


Regel 

450 

- 

1330 




Regel 

460 

- 

658 




Regel 

470 

- 

205 




Regel 

480 

- 

973 




Regel 

490 

* 

271 




Regel 

500 

- 

335 




Regel 

505 

- 

886 




Regel 

510 

- 

654 




Regel 

515 

- 

947 




Regel 

520 

- 

385 




Regel 

530 

- 

251 




Regel 

540 

- 

159 




Regel 

550 

- 

475 




Regel 

560 

- 

131 




Regel 

570 

- 

704 




Regel 

580 

- 

476 




Regel 

590 

- 

244 




Regel 

600 

- 

1252 




Regel 

610 

* 

1252 




Re gel 

620 

* 

346 




Reget 

630 

- 

1307 




Regel 

640 

- 

1407 




Regel 

650 

- 

1319 




Regel 

660 

- 

1409 




Regel 

670 

- 

335 




Regel 

690 

- 

219 




Regel 

700 

- 

1631 




Regel: 

710 

- 

580 




Rege1: 

720 

- 

1699 




?l: 

730 

- 

142 




>1: 

740 

- 

0 




1: 

750 

- 

364 
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SORTEREN IN (MSX) BASIC 


Sorteerroutines in Basic gooien heel wat 
programmeurs en gebruikers ! in de stress' 
vanwege de vertragende werking, die deze 
onderdelen uitoefenen op de 
verwerkingssnelheid van het totale 
programma. Sorteermodules zijn dan ook 
meestal als eersten aan de beurt om in een 
programma naar een machinefcaal routine 
omgezet te worden. 

Bij MSX-Basic valt de snelheid van het 
sorteren echter heel erg mee, De krachtige 
SWAP-instruktie en het aparte 
geheugendeel voor stringvariabelen zorgen 
voor een redelijke verwerkingssnelheid. 

HET DEMO PROGRAMMA 

In het demoprogramma worden strings van 
6 tekens gesorteerd. Het sorteren van 
numerieke variabelen gebeurt in ongeveer 
dezelfde tijd. Door de tabel samen te stellen 
met een RANDOM worden willekeurige 
variabelen aangemaakt en de tijden zijn dan 
ook gemiddelde tijden! Een reeds 
grotendeels op volgorde liggende tabel 
wordt vrij snel doorlopen, maar een tabel 
die geheel omgesorteerd moet worden zal 
meer tijd vergen! 

Deze sorteerroutines kunnen zonder meer 
overgezet worden in een eigen programma. 
De te sorteren string heet hier 0$ en het 
aantal te sorteren strings staat in de 
variabele N. Dit moet dus eventueel 
veranderd worden. 


SORTEERROUTINES 

Er zijn 3 belangrijke en veelgebruikte 
sorteermethodes. De eerste is 
'Bubblesort 1 . Deze methode is de 
een voudigste, de meest doorziehtige, de 
kortste en de traagste; deze routine is dan 
ook alleen geschikt voor zeer kleine 
aantallen. Een ongesorteerde tabel met 100 
strings wordt door deze routine in ca. 32 


seconden doorlopen. Bij 200 strings wordt 
deze methode al vervelend traag: 2 minuten 
en 5 seconden. Een reeds gesorteerde tabel 
wordt in resp. 26 seconden en 1 minuut 
plus 44 seconden doorlopen. Bij grotere 
aantallen is deze methode echt niet meer 
bruikbaar. Om dat aan te tonen heb ik 500 
strings gesorteerd en dit gebeurde in 13 
minuten en 22 seconden. Veel telang!! 

lets sneller (maar dan ook alleen IETS) is 
de tweede Bubblesort met een indexpointer. 
200 strings worden nu in 1 minuuut en 48 
seconden gesorteerd. 

SHELLSORT 

Deze sorteermethode is ook voor wat 
grotere bestanden bruikbaar. Wei is de 
routine aanmerkelijk langer, minder 
doorzichtig en worden meer variabelen voor 
de routine zelf gebruikt. De tijdswinst is 
echter opmerkelijk: 100 ongesorteerde 
strings worden in 13 seconden op volgorde 
gelegd. Een reeds gesorteerde tabel met 
hetzelfde aantal strings wordt in 6 
seconden doorlopen. Deze methode is 
dusdanig snel, dat aantallen van 500 of 
meer variabelen gesorteerd kunnen worden 
zonder al te veel vertraging. De demo gaat 
maar tot 500 variabelen, maar ik heb zelf 
voor een vergelijking met de Bubblesort 
methode 1000 strings gesorteerd en dit 
werd gedaan in bijna 4 minuten!! Hoewel 
toch nog redelijk, is dit niet meer 
bruikbaar. 500 variabelen is wel zo'n beetje 
het maximum. 

QUICKSORT 

Dat is dan een turbo-uitvoering van de 
Shellsort methode. Dit is wel zo'n beetje de 
maximale snelheid die haalbaar is in BASIC 
maar.... niet bij de MSX!. Door het gebruik 
van extra pointers is deze methode alleen 
maar sneller tot ca. 350 variabelen. Bij 
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ongeveer 400 variabelen is de snelheid 
vrijwel gelijk aan de Shell met bode en bij 
500 gaat deze Quicksort zelfs achterlopen 
bij de Shell. Dit is jammer, want bij sommige 
andere computers is deze methode echt de 
snelste. Toch nog maar wat cijfertjes bij 
deze Quicksort: 100 strings in ca. 9 
seconden!!! 

HOE SORTEERT MSX-BASIC? 

Het eigenlijke sorteren (het omwisselen van 
de variabelen die niet op volgorde liggen) 
gebeurt bij MSX-Basic -net als bij andere 
Micosoft Basic*s- met de SWAP instruktie. 
Deze instruktie is zeer belangrijk, want 
niet de variabelen zelf .worden omgewisseld, 
doch de pointers naar de adressen. Dit 
geeft een flinke snelheidswinst en -nog 
veel belangrijker- voorkomt 

garbage-collection (het T opruimen* van een 
volgeraakt geheugen) tijdens het sorteren. 
Onderschat deze garbage-collection 
routine niet! Wanneer deze zou intreden 
tijdens het sorteren van 500 variabelen zou 
het sorteren ca. 25 seconden langer duren. 
Bij grotere aantalllen kan dit een echte 
ramp worden. Bij 1000 strings duurt deze 
routine ongeveer anderhalve minuut en bij 
ca. 3000 strings wordt het pas echt eng: 
ongeveer een kwartier!!! (wie nog even 
goed verbaasd wil staan: bij 5000 
variabelen ca. 80 minuten!) En bij deze 
tijden komen dan nog de tijden voor het 
sorteren zelf! 

Wanneer we met de DIM-instruktie 500 
variabelen dimensioneren dan wordt in het 
* normale* Ram-geheugen een tabel 
opgebouwd. In deze tabel vinden we de 
adressen, waarin de variabele zelf staat. In 
eerste instantie zijn deze adressen ook in 
het ♦normale* Ram-geheugen te vinden en 
pas na echte stringmanipulaties worden de 
variabelen in het -met CLEAR 
gereserveerde- stringgeheugen gezet. Bij 
elke verandering van een variabele wordt 
dan een nieuw adres in dit geheugen 
gebruikt tot het vol is. Vervolgens treedt 
de garbage-collection routine in werking, 
die alle oude adressen verwijdert, waarna 
het geheugen weer opnieuw (van boven 
naar beneden) wordt opgebouwd. Ik kom 
hier echter nog uitgebreid op terug bij het 
behandelen van variabelen in het algemeen 
(en dat wordt een pittig artikel). 

VOORKOMEN VAN GARBAGE-COLLECT ION 

De MSX heeft voor dit doel weer een paar 
leuke pluspunten. Ten eerste een CLEAR 
instruktie die een scheiding maakt tussen 
’normale* variabelen en geDIMensioneerde 
variabelen; ten tweede de FRE("") 


+ 

instruktie waarmee we voortijdig een 
garbage-collection routine kunnen 
forceren in het met CLEAR geresveerde 
gebied en tenslotte de ERASE instruktie die 
niet meer gebruikte -geDIMde- variabelen 
kan verwijderen. 

We berekenen en we benoemen eerst de 
ruimte die we voor de variabelen nodig 
hebben (CLEAR nnn). We wachten echter 
met het benoemen van deze variabelen (met 
de Dllvl-instruktie) tot we ze echt nodig 
hebben en voeren eerst allerlei andere 

handelingen uit. Zodra we geDIMde 
variabelen nodig hebben, geven we eerst 
FRE(" n ) waarmee we het CLEAR-geheugen 
schoonvegen en benoemen vervolgens de 
variabelen met DIM. Na gebruik (b.v. 
sorteren) en veiligsteilen (SAVEen op 
cassette of diskette) kunnen we met CLEAR 
de eerder benoernde variabelen 
verwijderen, zodat het programma vervolgd 
kan worden zonder dat de gevreesde 
garbage-routine in werking treedt. 

Dit alles is vooral van belang wanneer 
meerdere reek sen variabelen 

geDIMensioneerd worden. Wanneer we b.v. 

4 reeksen geDIMde variabelen gebruiken 
van elk 500 stuks, dan zal een 
garbage-collection routine (wanneer ze alle 
4 in het geheugen staan) enkele minuten 
duren. Wanneer je weet dat dit kan 
gebeuren, dan is hier rekening mee te 
houden, maar een argeloze gebruiker ziet 
zijn computer volledig 'stil* vallen en zelfs 
met CTRL-STOP is niets meer te beginnen; 
dezelfde argeloze gebruiker denkt nu dat 
het systeem ergens is blijven ’hangen* en 
zet de computer mischien zelfs uit. 
Beschikken we echter over de mogelijkheid 
om binnen het programma niet alle vier de 
reeksen tegelijk op te slaan, dan kunnen we 
met boven genoemde methoden voorkomen 
dat de computer blijft hangen door 
regelmatig geDIMde variabelen te 
verwijderen (uiteraard waar dit toegestaan 
is) en af en toe een bijna leeg 
CLEAR-geheugen met FRE( M,t ) schoon te 
vegen. Dit alles is natuurlijk geheel 
afhankelijk van de aard van het 
programma. 

INVLOED OP DE SORTEERSNELHE1D 

De snelheid van MSX-Basic hangt voor een 
heel klein gedeelte mede af van de ruimte 
die het programma in het geheugen 
inneemt. Als overal bij het invoeren van 
het programma spaties worden gebruikt 
heeft dit een negatieve invloed op de 
snelheid, want onze Basic moet ook door 
deze spaties 1 heenworstelen*. Normaal 
merken we hier nauwelijks iets van. 

Bij een sorteerroutine ligt dit echter 
anders. Deze routine kan wel enkele 
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honderden keren doorlopen moeten worden 
en dan gaan al die spaties toch wel 
meetellen. Wanneer we in de demo overal 
spaties zouden gebruiken -b.v. FOR I = 1 
TO N i. p.v. FORI^ITON- dan zal dat in de 
routine zelf missehien iets van 50 tot 100 
bytes in beslag nemen. Maar 
vermenigv uldigd met het aantal 
doorgangen (b.v. 200 keer) geeft dat een 
ftink aantal ’loze’ bytes, die ook doorlopen 
worden. Dit soort routines -en elke andere 
routine waar de tijd belangrijk is- zal dus 
zo compact mogelijk geschreven dienen te 
worden: geen spaties en regels combineren, 
als daar gelegenheid voor is. 

DE V ARPTR-INSTRUKTIE 
EN 

SPITTEN IN NET GEHEUGEN 


Wie nog even flink de tanden in de 
RAMmetjes wil zetten en wat in de strings 
wil wroeten, moet dan nu de VARPTR 
instruktie maar uit de ROM trek ken. Met 
deze instruktie en met behulp van het 
BASIC-DUMP program ma (uit de vorige 
MSX-Gids) kunnen we het hele 
bovenstaande verhaal zichtbaar maken. 

We gaan uit van dezelfde variabelen uit het 
demo-programma en geven b.v. op: 

10 CLEAR 5000:DEFINT A-Z 
20 DIM O$(100) 

Na RUN kunnen we gaan kijken met de 
VARPTR instruktie. 

?VARPTR(0$(2)) geeft het adres van de 
pointer van de variabele 0${2) 

?PEEK(VARPTR(0$(2)) + 1) + 

PEEK(VARPTR(0$(2)) + 2)*256 geeft het 
adres van de variabele zelf (allemaal 0, 
want er zijn nog geen variabelen; er is 
alleen nog maar een tabel) 

0$(2)="A" zorgt voor een waarde en 
wanneer we nu ?PEEKenz.enz weergeven, 
krijgen we wel een adres. Omdat n A M een 
constante is, die we in het normale 
RAMgeheugen invoeren, vinden we dan ook 
een adres in dit geheugen. Cm nu 0$(2) 
werkelijk naar de -met CLEAR- 
gereserveerde ruimte te krijgen, geven we 
het volgende op: 

0$( 2)=0$( 2 ) + CHR$( 65) 

Weer met bovenstaande PEEK'S krijgen we 
nu een adres in het 'CLEAR-geheugen 
deel 1 . Wanneer we vervolgens opgeven: 


?PEEK(gevonden adres) dan krijgen we als 
resultaat 65; en dat is de eerste ingevoerde 
letter A. ?PEEK(adres+l) geeft weer 65; en 
dat is de tweede ingevoerde CHR$(65). 

Zo, voorlopig zijn jullie weer even zoet en 
ga ik me voorbereiden op het onderzoeken 
van de variabelen in het algemeen, het 
geheugengebruik van variabelen en alles 
wat met de variabelen samenhangt. 
Tegelijkertijd ga ik bekijken in hoeverre 
het VIDEORAM geheugen bruikbaar is voor 
de opslag van programmadelen, variabelen, 
routines enz. Ook ik ben dus weer even 
zoet en zie jullie graag weer terug in een 
volgende editie. 

(Wie trouwens zelf al wat spitwerk heeft 
verricht in deze richting kan mij rustig 
beilen -graag zelfs-. Dat bespaart mij 
missehien weer wat werk.) 

Alfred Debels 


10 ""A************************** 

15"*S0RT£ER-DEM0* 

20 '* (c)1986 MSX-Gids * 

25 '* * Amsterdam * 

30 '*************************** 

35 ' 

50 KEYOFF:SCREEN0,0,0:WIDTH40 
60 COLOR 1,15,15 ,1 I I 1 

75 ' in 

80 CLEAR 5000:REM*** STRINGRUIMTE **** 

85 " k; : i T 1 'i.'Av 

90 DIM O$(500):DEFINT A-Z 
100 CLS 

110 INPUT"AANTAL STRINGS (MAX.500): ”;N 
120 PRINT:PRINT"AANMAKEN VAN "jN;" WILLE 
KEURIGE” 

130 PRINT"STRINGS VAN 6 TEKENS." 

135 PRINT "EVEN GEDULD A.U.B." 

140 FOR 1=1 TO N:L=6:N$="" 

150 FOR J= 1 TO L:N$=N$+CHR$(INT(26*RND( 
1))+65):NEXT 

160 0$(I)=N$:NEXT:BEEP:BEEP:BEEP 
200 PRINT:PRINT:PRINT"WELXE SORTEERMETHO 
DE?" 

210 PRINT:PRINT"[1] = BUBBLESORT" 

220 PRINT"[2] = INDEX-BUBBLESORT" 

230 PRINT"[3] = SHELLSORT" 

250 X$=INKEY$:IF X$=”"THEN 250 
260 X=VAL(X$):IFX<1ORX>3THEN250 

265 PRINT:PRINT"[";X;"] SORTEREN. 

BEEP 

270 ON X GOSUB 1000,2000,3000 
280 M1=M:S1=S 

290 ON X GOSUB 1000,2000,3000 
300 M2=M:S2=S 

310 PRINT:PRINT"SORTEERTIJD ";N;" STRING 
S" 

320 PRINT” ONGESORTEERD: ";Ml;” MIN. 
SI;" SEC." 
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330 PRINT "VOORGESORTEERD: MIN. " 

; S 2 ; ” SEC." 

350 PRINT:PRINT"LIJST ZIEN? J/N: 

360 X$=INKEY$: IF X$=""THEN360 
370 IF X$="J" OR X$="j"THEN 500 
380 PRINT:PRINT"NOG EEN TEST? J/N: 

390 X$=TNKEY$:IF X$=""THEN390 

400 IF X$="N" OR X$="n"THEN END 

410 GOTO 80 

500 CLS: FOR I=lTO N 

510 PRINT 0$(I):NEXT 

520 GOTO 380 

998 ' 

999 ' BUBBLESORT 

1000 TIME=0 

1010 FOR 1=1 TO N-l 
1020 FOR J=I+1 TO N 

1030 IF 0$(I)>0$(J)THEN SWAP 0$(I),0$(J) 

1040 NEXT:NEXT 

1045 T=TIME 

1050 M^T/3000 

1060 S=T/50-M*60 

1070 BEEP: BEEP: BEEP-.RETURN 

1998 ' 

1999 ' INDEX-BUBBLESORT 

2000 TIME=0 

2010 FOR 1=1 TO N-l 

2020 M$=0$(I):K=I 

2030 FOR J*I+1 TO N 

2040 IF M$>0$(J) THEN M$=0$(J):K=J 

2050 NEXT 

2060 SWAP 0$(I),Q$(K) 

2070 NEXT 

2080 T=TIME 

2090 M=T/3000 

2100 S=T/50-M*60 

2110 BEEP:BEEP:BEEP:RETURN 

2998 ' 

2999 ' SHELLSORT 

3000 TIME=0 

3005 M=N 

3006 M=M/2:IF M=0 THEN 3020 

3007 J=1:K=N-M 

3008 H=J 

3009 V-H+M 

3010 IF O$(H)=<O$(V)THEN3014 

3011 SWAP 0$(H),0$(V):H=HHM 

3012 IF H=>1 THEN 3009 

3014 J=J+1 

3015 IF J>K THEN 3006 ELSE 3008 
3020 T=TIME 

3030 M=T/3000 

3040 S=T/50-M*60 

3050 BEEP:BEEP:BEEP:RETURN 


P.S.G. 


WAARDE 



DE PROGRAMMEERBARE GELUIDSGENERATOR 
& 

HET SOUND STATEMENT 

In het Engels heet dat de "Programmable 
Sound Generator" wat afgekort neerkomt 
op PSG. Deze afkorting gebruik ik 
verder in dit artikel. 

De PSG van de MSX (en vele andere 
computers) is de AY-3-8910. Deze chip 
wordt al vele jaren in 8-bits 
homecomputers en in speelautomaten 
gebruikt. In MSX-Basic kan deze PSG op 
twee manieren worden aangesproken. Ten 
eerste met de PLAY instruktie. Dit is 
de makkelijkste manier; het is erg 
eenvoudig te leren maar de 
mogelijkheden zijn beperkt en de 
werking is traag. PLAY is dan ook 
alleen maar geschikt om muziek te 
maken. Voor echte geluidseffecten moet 
je de SOUND instruktie gebruiken; wel 
wat moeilijker maar veel sneller met 
veel meer mogelijkheden. De hogere 
snelheid is een gevolg van het feit dat 
de SOUND instruktie net zoiets is als 

de POKE instruktie. De gegevens worden 
met de SOUND instruktie direkt naar de 

registers van de PSG gestuurd. Met de 
PLAY instruktie gaat dit via een omweg; 
er wordt eerst een vertaling gemaakt in 
het Basic-Rom en dat kost extra tijd. 


Programmeerbare 

Geluids 

Generator 


De PSG heeft 16 registers die genummerd 
zijn van 0 tm 15. De laatste twee, 
registers 14 en 15, zijn voor de I/O 
poorten en deze twee laten we hier 
verder buiten beschouwing. De waarde in 
deze twee laatste registers is ook niet 
belangrijk voor de SOUND instrukties? 
er mag zowel 0 als 1 in deze registers 
staan. 
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DE REGISTERS 


Er zijn 3 geluidskanalen: kanaal A,B en 
C. Direkt bij deze kanalen horen de 
registers 0 t/m 5 en 8 t/m 10. Met 
register 6 kan ruis worden opgewekt en 
register 7 is voor het instellen van de 
diverse kanalen. Register 7 werkt als 
een set schakelaars waarraee de kanalen 
en de ruis aan- of uitgezet kunnen 
worden. Met register 13 kan een 
golfvorm worden gekozen en de registers 
11 en 12 bepalen de snelheid van deze 
golfvorm. 

REGISTER 7 


7 

6 

5 

*1 

3 

2 

1 

0 

«- BIT NR. 

m 

H 

O 

o 

& 

o 

I/O POORT A 

RUIS 

TOOK f 


c 

B 

A 

c 

B 

A 

« A.'! KANAAL 

0 

0 

0 

0 

0 

0 

0 = AAN 

1 

1 

1 

1 

lL 

1 

1 

1 

1 

1 = UIT 

i 


Register 7 is het lastigste register; 
voora1 voor diegenen die nog niet zo 
lang met programmeren bezig zijn en nog 
weinig of geen ervaring hebben met het 
werken en rekenen met Hexadecimale- en 
Binaire waarden. Met behulp van wat 
tabellen en enige oefening zul je 
echter merken dat het allemaal best 
meevalt en dat al snel de fraaiste 
geluidseffecten uit de MSX komen. 

Register 7 heeft acht bits, die als 
schakelaars werken. Heeft een bit de 
waarde 0, dan staat de schakelaar aan, 
heeft een bit de waarde 1, dan staat de 
schakelaar uit. Van deze acht bits 
gebruiken we er slechts 6; bit 0 t/m 5. 
Bit 6 en 7 latan we uit staan (waarde 
1). Omdat er per bit wordt geschakeld 
gaat het programmeren van register 7 
dan ook het makkelijkst met Binaire 
waarden. Binaire waarden kunnen bij de 
MSX met '&B* worden opgegeven zodat 
omrekenen naar een Decimaal getal niet 
nodig is (het mag uiteraard wel). 

Met bit 0,1 en 2 kunnen we de kanalen 
A,B en C in de stand 'toon' zetten en 
met 3,4, en 5 in de stand 'ruis*. Zowel 
toon als ruis op een en hetzelfde 
kanaal is mogelijk maar het klinkt niet 
erg fraai; bij voorkeur dus voor ruis 
en geluid aparte kanalen gebruiken. 
Wanneer je geluid wilt op kanaal A en 
ruis op kanaal B dan moet bit nr.1 op 0 
worden gezet en bit nr.4 ook. 

Met onderstaand overzicht is het 
makkelijk om register 7 te programmeren 
en de waardes met de SOUND instruktie 
in Binaire vorm in te voeren. 
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SOUND 7, & B i i. 

EVEN OE FEN EN 

We willen geluid op kanaal A en ruis op 
de kanalen B en C. Vul maar in in de 
bovenstaande tabel: 

Toon op kan. A = bit 0 = 0 (AAN) 

Toon op kan. B = bit 1 = 1 (UIT) 

Toon op kan. C = bit 2=1 (UIT) 

Ruis op kan. A = bit 3=1 (UIT) 

Ruis op kan. B = bit 4=0 (AAN) 

Ruis op kan. C = bit 5=0 (aan) 

We geven de gevonden waardes plus de 
eerste twee enen van links naar rechts 
op met de SOUND instruktie in register 
7 als volgt: 

SOUND 7,&B11001110 (Dec. SOUND 7,206) 

En nog eentje: 

Kanaal A is ruis, kanaal B is toon en 
kanaal C gebruiken we niet. Vul maar in 
en het volgende komt er dan uit: 

SOUND 7,&B11110101 (Dec. SOUND 7,245) 

Dat was dan register 7. Even oefenen! 

De volgende registers zijn gelukkig wat 
eenvoudiger. 

FREKWENTIE REGISTERS 0 T/M 5 

Met deze registers kunnen de 
frekwenties van de tonen van de 3 
kanalen worden ingesteld. Registers 0 
en 1 horen bij kanaal A, 2 en 3 bij 
kanaal B en 4 en 5 bij kanaal C. 

Met de registers 1,3 en 5 kunnen de 
kanalen grof ingesteld worden en met de 
registers 0,2 en 4 kan een fijne 
instelling verkregen worden. De waarden 
lopen bij de registers 1,3 en 5 van 0 
t/m 15 en bij de registers 0,2 en 4 van 
0 t/m 255. De waarden in de registers 
0,2 en 4 zijn een fijne onderverdeling 
van de waarden in de registers 1,3 en 
5. Zo kan de waarde 2 in register 1 in 
256 stappen onderverdeeld worden in 
register 0. De waarden volgen elkaar 
ook op. De frekwentie van 2 in register 
1 en 255 in register 0 wordt gevolgd 
door 3 in register 1 met 0 in register 
0. Een doorlopende toon van hoog naar 
laag kan dan ook worden verkregen met 
de vo1gen de 1 loop': 
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10 SOUND 7,&B11111110 
20 SOUND 8,15 
30 FOR 1% - 0 TO 15 
40 SOUND 1,1% 

50 FOR J% = 0 TO 255 
60 SOUND 0,J% 

70 NEXT : NEXT 

LET OP: HOE HOGER DE WAARDE IN EEN 
REGISTER, HOE LAGER DE TOON ! 

Dus SOUND 0,1 : SOUND 1,0 geeft de 

hoogst mogelijke frekwentie en SOUND 
0,255 : SOUND 1,15 geeft de laagste 

toon. (SOUND 0,0 : SOUND 1,0 geeft geen 
toon). 

Met het volgende kleine prograrama kan 
de frekwentie worden berekend waarbij 
tevens de gevonden toon hoorbaar wordt 
gemaakt. 

1(21 SOUND 7,&B1111U10 
20 SOUND 8,15 

30 INPUT”FREKWENTIE IN Hz.:";HZ 
40 F=INT(1789773#/(HZ*16)) 

50 Fl=INT(F/256) 

60 IF Fl>15 THEN PRINT "FREKWENTIE TE LA 
AG":GOTO 30 
70 F0=F-(F1*256) 

80 PRINT"REG. 0,2 OF 4= ";F0:SOUND 0,F0 
90 PRINT”R£G. 1,3 OF 5= ”;F1:S0UND l,Fl 
100 PRINT:PRINT:GOTO 30 

REGISTER 6 - RUISREGISTER 

Register 6 is het ruisregister. Er zijn 

31 mogelijkheden en ook hier geeft de 

laagste waarde de hoogste ruis. De 
waarde 0 in register 6 heeft geen 
effekt. De waarde 1 komt overeen met 
een ruisfrekwentie van ruim 111 kHz en 
de waarde 31 komt overeen met een ruis 
van ca. 3,6 kHz. Het verloop is niet 
lineair zodat het verschil tussen de 

waarden 1 en 2 ca 55 kHz is en tussen 

30 en 31 nog slechts 100 Hz. 

Het berekenen van de ruis doen we ook 
weer met een klein programmaatje: 

10 SOUND 7,&BUL10111 

20 SOUND 8,15 

30 INPUT"RUISFREKWENTIE IN Hz.:";HZ 
40 F=INT(1789773#/(HZ*16)) 

50 IF F<1 OR F>31 THEN PRINT "FREKWENTIE 
VALT BUITEN HET BEREIK”:GOTO 30 
60 PRINT”REG. 6= ”;F:SOUND 6,F 
70 PRINT:PRINT:GOTO 30 

REGISTERS 8,9 EN 10 

De registers 8,9 en 10 bepalen het 
volume van de resp. kanalen A,B en C. 

Een waarde 0 zet het volume geheel uit 
en een waarde 15 geeft een maximaal 
volume. Om een geluid te beeindigen 
moeten deze registers op 0 worden 
gezet. Het stoppen van een geluid kan 
niet door in register 7 de kanalen op 
'UIT' te zetten! De waarden 0 t/m 15 in 


deze registers horen bij de normale 
sinus golfvorm* Wanneer een andere 
golfvorm gewenst is, moet het register 
van het betreffende kanaal op 16 worden 
gezet. Wanneer er 16 staat in een van 
de registers 8 t/m 10 dan kan met 
registers 11,12 en 13 een golfvorm en 
een tijdsduur worden ingesteld. Dit is 
dan echter . slechts op een 

geluidssterkte mogelijk? er is geen 
volumeinstelling meer voorhanden bij de 
waarde 16 in een van de registers 8 t/m 
10 . 

Zo zijn we automatisch bij de laatste 3 
registers -11,12 en 13- aangekomen. Met 
register 13 kunnen we een golfvorm 
kiezen. De waarden voor dit register 
lopen van 8 t/m 15. Waarden lager dan 8 
komen overeen met een van de waarden 
boven de 7 dus hoeven niet te worden 

vermeld. In de tabel zie je de waarde 

voor dit register met de daarbij 
behorende golfvorm. Bij de golfvorm 
staat *0* en 'max. 1 vermeld om het 
verloop van de golf te verduidelijken. 
Laten we aIs voorbeeld de golfvorm van 
de waarde 9 nemen. Deze golf begint bij 
0 (geen geluid) en loopt dan direkt op 
tot de maximale geluidssterkte. 
Vervolgens gaat het geluid langzaam 

naar 0 en blijft dan verder uit. Het 
omgekeerde effekt heeft golfvorm 11: 

het geluid begint op maximale sterkte, 

zakt langzaam af naar 0 (uit) om 
vervolgens weer zeer snel naar max. te 
gaan en daar te blijven. De golfvormen 
die op max. blijven -zoals deze vorm 
nr.11- blijven na inschakelen dus 
verder aanstaan als een vaste toon!! De 
vormen 8,10,12 en 14 blijven op- en 
neer gaan in geluidssterkte. Wanneer 
bij deze golfvormen een hoge snelheid 
wordt gekozen met registers 11 en 12 
(sneller dan 0.1 sec.) dan worden ze 
-net als bij de normale sinus- hoorbaar 
als een vaste toon. Er is echter wel 
een verschil met de sinusvormige toon: 
door de scherpere stijging en daling 
van de golf is de voortgebrachte toon 
ook *scherper'. 

Tot slot dan register 11 en 12. Het 
berekenen van de snelheid van de 
golfvorm doen we voor deze registers 
weer met een programmaatje, waarin de 
golfvorm nr. 8 is gebruikt om een goed 
oordeel over de invloed van de waarden 
-in deze registers- op de snelheid te 
krijgen. 

Ik wijs er nogmaals op dat het hele 
verhaal rond de registers 11 t/m 13 
alleen opgaat met de waarde 16 in een 
van de registers 8 t/m 10. Bij de 
waarde 15 of minder in deze registers 
wordt de normale sinus weer aktief en 
kunnen de registers 11,12 en 13 niet 
worden gebruikt. 
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10 SOUND 7,&B11111110 
20 SOUND 8,16;SOUND 13,14 

30 SOUND 0,111;SOUND 1,0 

40 INPUT"TIJD IN SECONDEN; ”;SC 

50 T=INT(1789773#/256*SC) 

60 T2=INT(T/256) 

70 T1=T-(T2*256) 

80 IF Tl>255 OR T2>255 THEN PRINT "VALT 
BUITEN HET BEREIKGOTO 40 
90 PRINT"REG. 11= ";Tl:SOUND 11,T1 
100 PRINT"REG. 12= ”;T2:SOUND 12,T2 
110 PRINT:PRINT:GOTO 40 


Golfvorm register 13 
btj volume 16 



Golfvorm blj volume 0-15 



Als sluitstuk van dit artikel nog een 
programma voor diegenen, die denken 
veel met deze SOUND instruktie te gaan 
werken. Alle drie de kleine -hierboven 
geplaatste- programmaatjes zijn 
samengevat in dit programma, kompleet 
met een menu en een ’flashing cursor' 
routine. 

Tot de volgende keer en de volgende 
instruktie (welke wordt dat?). Alfred. 




10 SCREEN0: COLOR 15,4,4:WIDTH40 
20 KEYOFF: CLEAR200 
50 CLS;LOCATE 0,6,0 

60 PRINT"[1] = TOONFREKWENTIE BEREKENEN" 
70 PRINT:PRINT 

80 PRINT"[2] = RUISFREKWENTIE BEREKENEN" 
90 PRINT:PRINT 

100 PRINT"[3] = TIJDBEREKENING" 

110 PRINT:PRINT:PRINT:PRINT 

115 LOCATE 0,24,1 

120 PRINT"WELK NUMMER?: "; 

130 N=13:GOSUB 10000 

140 IF X$<"1”ORX$>"3"THEN130 

150 X=VAL(X$ ):0N X GOSUB 1000,2000,3000 

160 GOTO 50 

1000 SOUND 7,254:SOUND 8,15:CLS 
1030 INPUT"TOONFREKWENTIE IN HZ.:";HZ 
1040 F=INT(1789773#/(HZ*16)) 

1050 Fl=INT(F/256) 

1060 IF Fl>15 THEN PRINT"FREKWENTIE TE L 
AAG":GOTO1030 
1070 F0=F-(F1*256) 

1080 PRINT"REG. 0,2 OF 4 = ";F0:SOUND 0, 
F0 

1090 PRINT "REG. 1,3 OF 5 - ";Fl:SOUND 1, 
FI 

1100 GOSUB 5000 
1110 RETURN 

2000 SOUND 7,247: SOUND 8,15 
2010 CLS 

2030 INPUT"RUISFREKWENTIE IN HZ.:";HZ 
2040 F=INT(1789773#/(HZ*16)) 

2050 IF F<1 OR F>31 THEN PRINT "FREKWENT 
IE VALT BUITEN HET BEREIKGOTO2030 
2060 PRINT"REG. 6 = ";F:SOUND 6,F 
2070 GOSUB 5000 
2080 RETURN 
3000 CLS:SOUND7,254 
3010 SOUND 8,16:SOUND 13,14 
3020 SOUND 0,111:SOUND 1,0 
3040 1NPUT"TIJD IN SECONDEN:SC 
3050 T=INT(1789773#/256*SC) 

3060 T2=INT(T/256) 

3070 T1^T-(T2*256) 

3080 IF Tl>255 OR T2>255 THEN PRINT"VALT 
BUITEN HET BEREIK":GOTO 3040 
3090 PRINT"REG. 11 = ";Tl:SOUND 11,Tl 
3100 PRINT"REG 12 = ";T2:S0UND 12,T2 
3110 GOSUB 5000 
3120 RETURN 

5000 LOCATE 0,24,1:N=27 

5010 PRINT"NOG MEER BEREKENINGEN? J/N:"; 

5020 GOSUB 10000 

5030 IF X$="N"OR X$="n"THENBEEP:END 

5040 RETURN 

10000 LOCATE iff, 24., 1 

10010 X$=INK£Y$:F0RI%=1T099:NEXTI% 

10020 LOCATE N,24,0:FORI%=1TO199:NEXTI% 
■10030 IF X$=""THEN 10000 
10050 RETURN 
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PRINT USING 


Door: Lex v.d. Hondel 


Met de PRINT instruktie zal iedereen wel 
bekend zijn maar velen zullen minder 
bekend zijn met de PRINT USING instruktie, 
die in MSX-Basic vele mogelijkheden biedt. 
Met het aanhangsel USING is bet mogelijk 
om getallen af te drukken in een bepaalde, 
van te voren vastgestelde, opmaak. 

Achter USING kan niet nog een tekst staan; 
een euvel dat overigens zeer eenvoudig te 
verhelpen is. 

Als getallen groter zijn dan het met USING 
vastgestelde formaat dan zal MSX-Basic 
reageren door een procentteken (%) en 
vervolgens toch het hele getal af te 
drukken. 

Als getallen achter de komma (punt in het 
Engels en in Basic) moeten worden 
afgebroken dan rondt MSX-Basic ze 
automatisch af. 

Een uitroepteken (!) heeft tot gevolg dat 
alleen het eerste teken van een string 
afgedrukt wordt. 

PRINT using " ! "HALLO" = H 

Met schuine streepjes (\\) kunnen meerdere 
tekens van een string worden afgedrukt. 
Het aantal is afhankelijk van het aantal 
spaties tussen de streepjes. Er worden 2 
tekens afgedrukt plus het aantal spaties. 
Dus geen spaties is 2 tekens; 2 spaties is 
2 tekens (altijd) plus 2 voor de spaties; 
vier tekens in totaal. 

PRINT USING "\ \";"HALLO" = HALL 

PRINT USING "W"; "HALLO" = HA 

Als en-tekens (&) worden gebrulkt kan er 
iets tussen twee strings worden geplaatst. 
Die tekst moet dan tussen de en-tekens 
geplaatst worden. 

PRINT USING "& BASIC ;"MSX";"IS GOED" = 
MSX BASIC IS GOED 

Door middel van 'hekjes' (//) -ook wel 

'matjes' genoemd'- kunnen getallen netjes 
op het scherm worden gezet. Dit is 
bijvoorbeeld erg handig bij 

rentepercentages en de bedragen die 

daaruit volgen. Als er vier hekjes zijn en 
het getal maar uit twee cijfers bestaat 
dan wordt de ruimte voor het getal 

opgevuld met spaties. 

PRINT USING ”###.#";31.357 = 31.4 

m 

Om grotere getallen duidelijk leesbaar te 
maken kunnen er komma's tussen worden 
gezet. 


PRINT USING "########,.##"; 5392170.1423 = 
5,392,170.14 

Met de cijfers achter de komma is dit niet 
mogelijk. 

Door een plusteken (+) voor de hekjes (#) 
te zetten is het mogelijk positieve 
getallen door een + en negatieve getallen 
door een min (-) vooraf te laten gaan. 
Door de plus (+) achter het hekje te 
zetten worden de getallen door een plus of 
een min gevolgd. 

PRINT USING "+###.#’*; 12.35,-3.5 = +12.4 
-3.5 

PRINT USING "###.#+";12.35,-3.5 = 12,4+ 
3.5- 

Ook alleen een minteken laten verschijnen 
als het getal negatief is behoort tot de 
mogelijkheden, maar dan alleen achter het 
getal ( de min verschijnt norraaal al voor 
het negatieve getal). Achter positieve 
getallen volgt dan een lege ruimte 
(spatie). 

PRINT USING "12.35, -3.5 = 12.4 

3.5- 

Het is zelfs mogelijk ora het Guldenteken, 
dat met C0DE+1 te verkrijgen is, voor het 
getal af te drukken. 

In plaats van het Guldenteken kan 
natuurlijk ook een Dollarteken, Pondteken 
of elk ander willekeurig teken gebruikt 
worden. 

PRINT USING "$##*#";3.5 = $ 3.5 

PRINT USING "$$##.#";3.5 = $3.5 

Bij de tweede manier wordt het Dollarteken 
direkt voor het bedrag geplaatst. Dit is 
met het Guldenteken niet mogelijk. Om de 
lege ruimte voor het getal met asterisken 
-sterretjes (*)- op te vullen, moeten er 
twee asterisken voor het hekje geplaatst 
worden. Om het Dollarteken ook dan weer 
direkt voor het getal te krijgen moet er 
maar .1 Dollarteken worden gebruikt. Ook op 
deze manier is het Guldenteken niet direkt 
voor het getal te plaatsen. 

PRINT USING *'**######. #”; 12.3,1234.1 = 

******12.3 ****1234.1 

PRINT USING "**$#####.#”;12.3,1234.1 = 

*****$12.3 ***$1234.1 
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PRINT USING "$$==.=";12.3,-3.5 = $12.3 

-$3.5 

Door vier "dakjes" (*) achter het laatste 
hekje te zetten worden getallen in 
exponentiele vorm afgedrukt. Dit is handig 
bij grotere getallen om %-getal te 
voorkomen, maar het bevordert de 
leesbaarheid van kleine getallen niet. 

PRINT USING "##.#****";12.5 = 1.3E+01 

Om lets achter een USING instruktie te 
zetten, hoeft die tekst alleen achter de 
hekjes geplaatst te worden. 

*'###.## TOTAAL";12.50 = 12,50 TOTAAL 

"SUB ###.## T0TAAL’*;12.50 = SUB 12.50 

TOTAAL 

Dat was het voor deze keer. 

(Red. Let op het en-teken (&) dit heeft 
dezelfde funktie als het teken, dat in 
sommige handleidingen en boeken wordt 
gebruikt. Dit teken (@) kan op de 
Nederlandse machines niet worden gebruikt 
in een PRINT USING instruktie. 

Waarschijnlijk is voor deze boeken een 
andere machine gebruikt). 


SKC GAAT DOOR MET SPONSORING VOLENDAM 

Ondanks de degradatie van FC Volendam 
naar de le divisie van het betaalde 
voetbal heeft SKC, fabrikant van o.a. 
diskettes, een nieuw sponsorcontract met 
de voetbalclub getekend. Het contract 
heeft een duur van een seizoen, met een 
optie op het volgende. 

SUNKYONG - de moedermaatschappij van SKC 
- is een Zuid-Koreaanse multi nationale 
onderneming, die zich een leidende posi- 
tie heeft verworven op het gebied van 
geluids- en beeldweergave en op het 
gebied van magnetische media voor compu¬ 
ters. 

Bij de computergebruiker is SKC vooral 
bekend vanwege de diskettes en data- 
cassettes. 


SPRITE-PROBLEMEN 

Er zitten hier en daar nog wat kleine 
narigheidjes in de sprites en als je die niet 
kent, kunnen de daaruit voortkomende 
problemen de beginnende programmeur 
grijze haren bezorgen (kijk maar naar mij). 

Het eerste waar je op moet letten is het 
opzetten van de sprites in een programma. 
Dit MOET gebeuren in dezelfde ’SCREEN 
mode' als die, waarin de sprites gebruikt 
gaan worden. Wanneer je -zoals bij ZWORK- 
met SCREEN 1 en SCREEN 2 werkt en je 
maakt de sprites in het begin van het 
programma, terwijl je SCREEN 1 hebt 
opgegeven, dan zijn de sprites later in 
SCREEN 2 niet meer te gebruiken. 

Ook met de sprite-grootte opdracht in de 
SCREEN instruktie moet je oppassen. Deze 
mag slechts eenmaal gebruikt worden en wel 
bij de eerste keer als de sprites gemaakt 
worden. Wanneer je twee keer b.v. de 
opdracht SCREEN 2,0 geeft kan je ook de 
sprites niet meer gebruiken (tenminste niet 
op de normale wijze met PUT SPRITE). 

Dus, wanneer je sprites nodig hebt voor 
SCREEN 2, formaat 8x8 en geen intoetsklik 
wenst, geef je eerst op: SCREEN 2,0,0. 
Daarna maak je de sprites en verder 
gebruik je voor het omschakelen van de 
schermen alleen nog SCREEN 2 wanneer je 
terug gaat naar het graphicsscherm. 

Nog leuker is de STEP-optie bij de PUT 
SPRITE instruktie. Deze werkt niet goed 
wat waarschijnlijk een echte fout in de Basic 
is. Als alles goed zou gaan zou met deze 
instruktie een waarde opgegeven kunnen 
worden die bij de coordinaten van de sprite 
geteld wordt. Dit werkt wel, maar alleen als 
er niet meer dan 1 sprite wordt gebruikt. 
In alle andere gevallen worden niet de 
coordinaten van de opgegeven sprite 
gebruikt, maar die van de laatst gebruikte 
sprite. Dit gaat dan alleen nog maar goed 
zolang die laatste gebruikte sprite dezelfde 
is als de sprite met de STEP-instruktie. In 
alle andere gevallen komt de sprite met de 
STEP-instruktie op de plants te staan van 
de laatst gebruikte sprites. 

Dus maar gewoon met X en Y de plants 
bepalen en X en Y met een variabele of 
constante verhogen of verlagen. Jammer 
maar waar. 

m 

Redaktie MSX-Gids. 
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HELIWAR door: Lex v.d. Hondel 


HELIWAR 

Dit spel is een inzending van Lex v.d. 
Hondel. Oorspronkelijk had Lex dit voor 
de Philips P2000 computer geschreven en 
zowaar viel dit spel bij een program— 
meerwedstrijd in de prijzen. 

Uit deze MSX-versie blijkt wel dat Lex 
nog teveel in ‘Philips-BASIC' denkt, 
want van de mogelijkheden van MSX-BASIC 
is nauwelijks gebruik gemaakt. 

Een bezwaar vinden we de chaotische 
manier van programmeren, maar het spel- 
letje was dusdanig leuk dat we hebben 
besloten het toch te plaatsen. 

Lex, bedankt voor je inzending en tot 
een volgende keer. 



10 CLEAR 5000 
20 YY“(INT(1)*TIME/200) 

30 FOR G=-l TO YY 
40 XX-RND(-TIME) 

50 NEXT G 
60 GOTO 280 

70 Ml$="vl0" :M2$- ,, vll" 

80 FOR I=AB TO BA STEP CA 

90 Ml$=Ml$+**N"+STR$ (I) :M2$=M2$+"n*'+STR$( 
I+AC) 

100 NEXT X 

110 PLAY M1$,M2$:RETURN 
120 ON STOP GOSUB 3770 
130 STOP ON 
140 SPRITE ON 
150 STND-0 

160 DIM XX(12):DIMYY(12) 

170 BOTS =0 
180 CLEAR 10000 
190 DIM VOGEL$(ll) 

200 CLS: LOCATE 15,9: PRINT "HELIWAR** 

210 PRINT"De cirkel stelt een'levenswijz 
er'voor." 

212 PRINT"Hoe meer levens je verloren he 
bt," 

214 PRINT"hoe meer strepen. Als de strep 
en op" 

216 PRINT"gelijke afstand van elkaar sta 
an heb" 

218 PRINT"je geen reserve levens meer." 
220 PRINT”Het onderste vakje geeft de to 
estand" 


222 PRINT"van de tank weer:vol.half of 1 

t* 


230 PRINT"De bovenste balk, die pas na h 


et 


232 PRINT"eerste spel verschijnt,geeft h 
et" 


234 PRINT*'aantal gehaalde punten(kisten) 
en de ** 

236 PRINT”tijd die daarvoor nodig was.*’ 
240 PRINT**Veel succes !" 

250 PRINT'* 


(c}1985 by Lex v.d,Hon 

del" 

260 AB-74:BA-20:AC=3:CA=-1;GOSUB 70 
270 IF PLAY(0)=-1 THEN GOTO 270 ELSE GOT 
0 390 


280 KEYOFFiSCREEN 0:WIDTH 40 
290 LOCATE 15,10 
300 PRINT"HELIWAR":PRINT 
310 PRINT"Haal kisten met materiaal van 
het eiland.Wees terug op het booreil 
and (platvorm) voor je tank leeg is. 

fi 

320 PRINT"Voorkom voge1-aanvaringen." 

330 PRINT”Vlak boven zeeniveau vliegen i 
s het veiligst,maar kost het meeste 
brandstof.Druk op de spatie balk en 
je hebt een" 

340 PRINT"anti vogel veld om je heen.Maa 
r dat kostenergie(*brandstof) en je 
verliest de kist (als je die aan b 
oord hebt)." 

350 PRINT" 


360 PRINT”(c)1985 by Lex v.d.Hondel." 

370 AB-20:BA-64:AC-1:CA-1:GOSUB 70 
380 IF PLAY(0)=-1 THEN GOTO 380 ELSE GOT 
0 200 

390 COLOR 6,5,6 

400 SCREEN 2,2,0 

410 COLOR 6,5,6 

420 LINE(0,130)-(255,130),7 

430 PAINT (4,190),7,7 

440 FOR X- 10 TO 50 STEP 10 

450 Y=X+3 

460 LINE(X ,191)-(X ,100),! 

470 HNE-(Y , 100) , 1 
480 LINE-(Y ,191),1 
490 LINE“(X ,191),1 
500 PAINT((X+2),120),1,1 
510 NEXT 

520 LINE(5,99 )-(65,99 ) 

530 LINE-(65,95) 

540 LINE-(40,95) 

550 LINE-(40,90) 

560 LINE~(5,90) 

570 LINE-(5,99) 

580 PAINT(10,95 ) 

590 PRESET(15,90),15 

600 DRAW"C4;U20;L1;U15;L1;U10;L1;U6;L1;U 
3;D3;L1;D6;L1;D10;L1;D15;L1;D20" 

610 LINE(9,70)-(15,70),4 
620 LINE(9,55)-(13,55),4 
630 LINE(9,45)-(12,45),4 
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640 

LINE(8,70)-(14,90),4 


650 : 

LINE(8,90)-(14,70),4 


660 

LINE(9,70)-(13,55),4 


670 

LINE(13,70)-(9,55),4 


680 : 

LINE(150,191)-(160,165) 

,11 

690 

LINE-(180,125),11 


700 

LINE-(190,127),11 


710 

LINE-(210,123),11 


720 

LINE-(225,130),11 


730 

LINE-(235,145),11 


740 

LINE-(255,160),11 


750 

LINE-(255,191),11 


760 

LINE-(150,191), 11 


770 

PAINT(240,150),11,11 


780 

LINE(220,129)-(227,115) 

,15 

790 

LINE-(221,129),15 


800 

LINE (222,129)-(227,115 

), 15 

810 

LINE(228,ll4)-(235,117) 

,1 

820 

LINE(226,114)-(220,114) 

,1 

830 

LINE(228,114)-(232,119) 

,1 

840 

LINE(20,89)-(39,89),11 


850 

LINE-(39,80),11 


860 

LINE-(20,80),11 


870 

LINE-(20,89),11 


880 

PAINT (3 5,85 ), 11,11 


890 

LINE(41,94)-(65,94),1 


900 

LINE-(70,85),1 


910 

LINE-(41,85),1 


920 

LINE-(41,94),1 


930 

PAINT(43,90),1 


940 

PRESET(50,87),15 


950 

PRESET(53,87 ),11 


960 

PRESET(53,88),11 


970 

PRESET(56,87 ),11 


980 

PRESET(56,88),11 


990 

PRESET(59,87),11 


1000 

PRESET(59,88),11 


1010 

PRESET(50,90),11 


1020 

PRESET (50,91), 11 


1030 

PRESET(53,90),11 


1040 

PRESET(53,91),11 


1050 

PRESET(56,90),11 


060 

PRESET(56,91),11 


1070 

PRESET(59,90),11 


1080 

PRESET(59,91),11 


1090 

LINE(48,94)-(48,85),11 


1100 

PRESET(47,91),11 


1110 

PRESET(47,87),11 


1120 

LINE(44,84)-(44,81), 1 


1130 

LINE(55,84)-(55,81), 1 


1140 

LINE(66,84)-(66,81), 1 


1150 

LINE(41,80)-(70,80),4 


1160 

PRESET(41,79),15 


1170 

PRESET(47,79),15 


1180 

PRESET(52,79),15 


1190 

PRESET(57,79),15 


1200 

PRESET(64,79),15 


1210 

PRESET(70,79),15 


1220 

PRESET(5 ,92),11 


1230 

PRESET(10,92),11 


1240 

FTESET(15,92),11 


1250 

PRESET(20,92),11 


1260 

PRESET(25,92),11 


1270 

PRESET(30,92),11 


1280 

PRESET(35,92),11 


1290 

LINE(70,191)-(70,160), 

1 

1300 

LINE-(150,160),1 


1310 

LINE-(150,191),1 


1320 

PAINT(100,180),1,1 


1330 

LINE(75,191)-(75,180), 

15 

1340 

LINE-(115,180),15 


1350 

LINE-(115,191),15 



1360 CIRCLE (132,175),13,11 
1370 PAINT(132,175),11,11 
1380 LINE (70,175)-(100,175),14 
1390 LINE-(100,162),14 
1400 LINE-(70,162),14 
1410 LINE-(70,175),14 
1420 PAINT(90,165),14,14 
1430 LINE(101,175)-(113,162),5,BF 
1440 LINE(145,196)-(145,161),1 
1450 SOUND 0,100: SOUND 1,1: SOUND 8,16: SO 
UND 6,31: SOUND 7,246: SOUND 12,3: SOU 
ND 11,200: SOUND 13,12 
1460 Z=l:X“40:Y-55 :SPRITE ON:VOL-80:LEV 
EN=6 

1470 GOSUB 1630:TIME~0 

1480 IF W=1 THEN SPRITE$(1 )=A$ ELSE SPR 
ITE$(1)=B$ 

1490 M=STRIG(0):IF M—1 THEN Z=l:GOSUB 2 
150 ELSE Z=15 
1500 C-STICK(0) 

1510 IF C=1 AND Y>-20 THEN Y=Y~3 

1520 IF C=5 AND Y<200 THEN Y»Y+3 

1530 IF C=7 AND X>-20 THEN X=X-3: W=0 

1540 IF C=3 AND X<250 THEN X=X+3:W=1 

1550 IF C=8 AND Y>-20 AND X>-20 THEN Y=Y 
-2:X~X-2:W=0 

1560 IF C=2 AND Y>-20 AND X<250 THEN Y=Y 
-2:X-X+2: W=1 

1570 IF C«4 AND Y<200 AND X<250 THEN Y=Y 
+ 2 :X=X+2:W=1 

1580 IF C=6 AND X>20 AND Y<200 THEN Y=Y+ 
2:X»X-2:W=0 

1590 GOSUB 1770:IF Y<120 THEN VOL=VOL-4 
ELSE VOL=VOL-6 
1600 PUT SPRITE 1,(X,Y),Z 
1610 GOTO 3230 

1620 IF Z=15 THEN Z=14 ELSE Z=15 
1630 A$="" :RESTORE 1680 

1640 FOR Q=1 TO 64 
1650 READ C 

1660 IF Q<33 THEN A$=A$+CHR$(C)ELSE B$=B 
$+CHR$(C) 

1670 NEXT Q 

1680 DATA 0,0,0,0,0,0,0,127 

1690 DATA 0,131,255,3,1,0,1,0 

1700 DATA 0,0,0,0,0,0,0,255 

1710 DATA 128,240,248,252,248,148,248,0 

1720 DATA 0,0,0,0,0,0,0,255 

1730 DATA 1,15,31,63,31,41,31,0 

1740 DATA 0,0,0,0,0,0,0,254 

1750 DATA 0,193,255,192,128,0,128,0 

1760 RETURN 

1770 IF Y>115 THEN GOSUB1900 
1780 IF VOL<150 ANDKIST=1 AND Y>110THEN 
GOSUB 2640 

1790 IF X<70 AND Y>65AND Y<100 THEN GOSU 
B 1900 

1800 IF X<16 AND Y>21 THEN GOSUB 1900 
1810 IFX>178 AND X<182 AND Y>108 AND Y<1 
12 THEN GOTO 2180 

1820 IF VOL<305 AND VOL>297 THEN GOSUB 2 
430 

1830 ON SPRITE GOSUB 3610 
1840 IF X>41 AND X<45 AND Y>62 AND Y<65 
THEN GOSUB 2280 
1850 IF VOL<0 THEN GOTO 3650 
1860 IF X<56 AND Y>90 THEN GOSUB 1900 
1870 SPRITE ON 

1880 IF X>207 AND Y>106 THEN GOSUB '900 
1890 RETURN 

1900 DATA 0,214,124,56,16,16,24,0 
1910 0$*'*" :SPRITE OFF:RESTORE 1900 
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1920 FOR G-l TO 8 

1930 READ V:C$=C$+CHR$(V) 

1940 NEXT G 

1950 SPRITE$(5)=C$:S=0 

1960 GOSUB 2080 

1970 SPRITE OFF 

1980 GOSUB 2040 

1990 PUT SPRITE 5,(X, Y),14 

2000 Y=Y-1:S=S+2:KIST=0 

2010 IF Y>-20 THEN GOTO 1980 

2020 SPRITE ON:GOSUB2120 

2030 RETURN 

2040 SOUND 8,15 

2050 SOUND 0,X 

2060 SOUND 1,0:SOUND 7,254 

2070 RETURN 

2080 LEVEN-LEVEN-1 

2090 IF LEVEN-7 THEN GOTO 2510 ELSE RETU 
RN 

2100 GOTO 2120 
2110 GOTO 1950 

2120 SOUND 0,100:SOUND 1,1:SOUND 8,16:SO 
UND 6,31:SOUND 7,246:SOUND 12,3:SOU 
ND 11,200:SOUND 13,12 
2130 CIRCLE(132,175),13,1,-0,-LEVEN 
2140 RETURN 

2150 IFX>178 AND X<182 AND Y>108 AND Y<1 
12 THEN GOTO 2180 
2160 KIST=0:VOL=VOL-3 
2170 RETURN 

2180 OPEN"GRP:” FOR OUTPUT AS #1:PRESET 
(70,165): COLOR 11,5,6: PRINT#1," 

":PRESET (70,165):COLOR 1,5,6:PRINT 
#1,"kist":KIST =1:CLOSE #1 
2190 SA=60 
2200 FOR BB=1T0 30 
2210 SA=SA-2 

2220 SOUND 7,244:SOUND 2,SA:SOUND 3,BB 

2230 SOUND 9,15 

2240 FOR AA-1 TO 50:NEXT AA 

2250 NEXT BB 

2260 GOSUB 2120 

2270 RETURN 

2280 SPRITE OFF:FOR K=1 TO 10 
2290 1=0 

2300 FOR H=1 TO 30 
2310 I=1+1:SOUND 7,254 
2320 PUT SPRITE 1,(X,Y),11 
2330 SOUND 8,15 
2340 SOUND 0,1 
2350 SOUND 1,H 
2360 NEXT H 
2370 NEXT K 

2380 IF LEVEN<0 THEN GOTO 2510 
2390 GOSUB 2120 

2400 IF KIST=1 THEN STND=STND+1:KIST=0 
2410 QPEN"GRP:"FOR OUTPUT AS #1:PRE$ET(7 
0,165): COLOR 11,5,6: PRINT#1," 

":PRESET(70,165):COLOR 1,5,6:PRINT# 
1,"PNT";STND:PRESET(78,184):COLOR 1 
,5,6: PRINT #1, " ": PRESET (80,184): 
COLOR 15,5,6: PRINT//1, ”Vol" : VOL=600: 
Y =Y -4 

2420 CLOSE #l:GOTO 1890 
2430 OPEN"GRP:"FOR OUTPUT AS#1:PRESET (7 
7,184):COLOR 15,5,6:PRINT #1," 

COLOR 1,5,6:PRESET(77,184):PRINT#1, 
"HALF" 

2440 CLOSE #1:SOUND 6,25 
2450 RETURN 

2460 OPEN"GRP:"FOR OUTPUT AS#1:PRESET(77 
,184):COLOR 15,5,6:PRINT#1," ":C 

OLOR 1,5,6:PRESET(77,184):PRINT#1," 
LEEG":CLOSE #1 


2470 GOSUB 1900 
2480 X=42:Y=61 
2490 GOTO 2280 
2500 RETURN 

2510 OPEN "GRP:"FOR OUTPUT AS #1 
2520 COLOR 15,5,6:PRESET(70,10) 

2530 PRINT#1," 

2540 COLOR 1,5,6 
2550 SEC=INT(TIME/ 50) 

2560 IF SEC>60 THEN MIN=INT(SEC /60):SEC 
=INT (SEC/60) 

2570 IF MIN >60 THEN UUR=INT(MIN /60):MI 
N=INT(MIN/60) 

2580 PRESET(70,10):PRINT#1,STND;" ";UUR; 

" ";MIN;” "SEC; 

2590 FOR ELVEN=0 TO 6 

2600 CIRCLE (132,175),13,11,-0,-ELVEN 

2610 NEXT ELVEN 

2620 CLOSE #1:STND=0:KIST=0 

2630 GOTO 1450 

2640 DATA 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2650 DATA 0,0,0,0,0,0,195,125 

2660 GOSUB 3050 
2670 XX$="":RUIS=1 
2680 RESTORE 2640 
2690 FOR NN=1 TO 16 
2700 READ XX 
2710 XX$=XX$+CHR$(XX) 

2720 NEXT NN 

2730 SPRITE$ (27)=XX$ 

2740 FOR SNEL=254TO50 STEP-1 

2750 PUT SPRITE 27,(SNEL,113 ), 15 

2760 GOSUB 2800 

2770 RUIS = RUIS+l 

2780 NEXT SNEL:GOTO 2880 

2790 SOUND 8,0 

2800 SOUND 7,207 

2810 SOUND 9,15 

2820 SOUND 6,13 

2830 SOUND 10,L5 

2840 SOUND 6,26 

2850 SOUND 11,187 

2860 SOUND 12,2 

2870 RETURN 

2880 SOUND 7,254 

2890 SOUND 8,15 

2900 SOUND 9,0 

2910 SOUND10,0 

2920 FOR VC=1 TO 40 

2930 J =INT(RND(l)*lll) 

2940 K=INT(RND(1)*111) 

2950 K=INT(RND(1)*15) 

2960 SOUND 0,1 

2970 SOUND 1,J 

2980 FOR CV=1 TO (J): NEXT CV 

2990 NEXT VC 

3000 STND=STND-1:SOUND 7,246: SOUND 

8 8 

3010 PUT SPRITE 3,(-32,209),15 
3020 Y=Y-15 

3030 SOUND 0,100:SOUND 1,1:SOUND 6,24:SO 
UND 7,246:SOUND 8,16:SOUND 12,2:SOU 
ND 13,12:SOUND 11,100 
3040 RETURN 

3050 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,56,5 

6,0 

3060 NN$= M " 

3070 RESTORE 3050 
3080 FOR WW= 1 TO 16 
3090 READ NH 
3100 NN $=NN 3+CHR $ (NH ) 

3110 NEXT WW 

3120 FOR VG=Y TO 150 

3130 SPRITE$(25 )=NN$ 
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3140 SOUND 8, 13: SOUND 7,254 
3150 PUT SPRITE 25,(X,VG), 1 
3160 SOUND 0,VG: SOUND 1,0 
3170 NEXT VG 

3180 PUT SPRITE 25,(-30,-20) 

3190 FOR XOl TO 100:NEXT XC 
3200 GOSUB 2120 
3210 KIST =0 
3220 RETURN 

3230 DATA 0,0,198,40,16,2,1,0 
3240 DATA 0,64,70,40,16,0,0,0 
3250 DATA 0,0,0,0,0,0,128,64,96,16,16,16 

3260 GOTO 3450 
3270 REM 

3280 FOR VEEL=T TO 10 
3290 RESTORE 3230 
3300 FOR EEN-1 TO 32 
3310 READ JJ 

3320 V0GEL$(VEEL)=VOGEL$(VEEL)+CHR$(JJ) 
3330 NEXT EEN 

3340 SPRITE $(VEEL+10)=VOGEL $(VEEL) 

3350 NEXT VEEL 
3360 PEK=40 

3370 FOR PLEK=1 TO 10 

3380 PEK=PEK+19 

3390 XX(PLEKO-PEK 

3400 YY(PLEK)=INT(RND(1)*105) 

3410 PUT SPRITE (PLEK+10),(XX(PLEK),YY(P 
LEK)),1 

3420 NEXT PLEK 
3430 PLEK=1 
3440 GELD=1 

3450 IF GELD-0 THEN GOTO 3270 
3460 GELD-1 
3470 FOR CEB-1 TO 4 
3480 PLEK=INT(RND(1)*10) 

3490 PO=INT(RND(1)*6) 

3500 IF PQ=1 THEN YY(PLEK)=YY (PLEK)+5 
3510 IF PO=2 THEN YY(PLEK)=YY(PLEK)+10 
3520 IF PO=3 THEN YY(PLEK)=YY(PLEK)+3 
3530 IF PO=4 THEN YY(PLEK)=YY(PLEK)-8 
3540 IF PO=5 THEN YY(PLEK)=YY(PLEK)-4 
3550 IF XX(PLEK)>65 AND YY(PLEK)>105 THE 
N YY(PLEK)=0 

3560 IF YY(PLEK»50 AND XX(PLEK)<60 THE 
N YY(PLEK)=0 

3570 IF YY(PLEK)<0 THEN YY(PLEK)=50 
3580 PUT SPRITE (PLEK+10),(XX(PLEK),YY(P 
LEK)) ,1 
3590 NEXT CEB 
3600 GOTO 1480 
3610 IF Z=1 THEN RETURN 
3620 XZ=1 
3630 SA=Y 
3640 GOTO 3650 

3650 IF Y<0 THEN Y=0:SPRITE OFF 
3660 SOUND 8,15 
3670 FOR VL-Y TO 125 
3680 PUT SPRITE 1,(X,VL) 

3690 SOUND 6,8 
3700 SOUND 0,VL 
3710 SOUND 1,1 
3720 NEXT VL:Y=VL:KIST=0 
3730 PUT SPRITE 1,(40,-16),11 
3740 IF XZ=1 THEN Y=SA:GOSUB 1900 ELSE G 
OSUB 2460 
3750 XZ=1500 
3760 GOTO 1890 
3770 END 
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Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rage 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 


10 - 

329 

20 - 

1890 

30 - 

1095 

40 - 

1332 

50 - 

202 

60 - 

176 

70 - 

684 

80 - 

1273 

90 - 

1747 

100 - 

204 

110 - 

562 

120 - 

648 

130 - 

293 

140 - 

348 

150 - 

569 

160 - 

418 

170 - 

568 

180 - 

229 

190 - 

658 

200 - 

159 

210 - 

3878 

212 - 

3282 

214 - 

3442 

216 - 

3628 

218 - 

2851 

220 - 

3649 

222 - 

1666 

230 - 

3056 

232 - 

3369 

234 - 

3590 

236 - 

2842 

240 - 

1352 

250 - 

5972 

260 - 

459 

270 - 

1313 

280 - 

439 

290 - 

315 

300 - 

737 

310 - 

9626 

320 - 

2788 

330 - 

10773 

340 - 

10282 

350 - 

3957 

360 - 

2178 

370 - 

405 

380 - 

1423 

390 - 

345 

400 - 

340 

410 - 

345 

420 - 

1312 

430 - 

678 

440 - 

1009 

450 - 

677 

460 - 

1226 

470 - 

808 

480 - 

899 

490 - 

898 

500 - 

1004 

510 - 

131 

520 - 

997 

530 - 

732 

540 - 

707 

550 - 

702 

560 - 

669 

570 - 

678 

580 - 

451 

590 - 

529 

600 - 

4008 

610 - 

958 

620 - 

926 

630 - 

905 

640 - 

976 

650 - 

976 

660 - 

941 

670 - 

941 

680 - 

1463 

690 - 
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959 
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1022 
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1057 
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1088 
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742 
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751 
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606 
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1083 
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789 
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760 
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769 

Rege1: 
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541 
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561 
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950 - 

560 
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561 
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563 
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564 

Regel: 

990 - 

566 

Regel: 

1000 - 

567 
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560 

Rege1: 
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561 

Rege1: 

1030 - 

563 

Rege1: 

1040 - 

564 
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1050 - 

566 
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1060 - 

567 
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1070 - 

569 
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1080 - 

570 
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1090 - 

1072 
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1100 - 

558 

Rege1: 

1110 - 

554 

Rege1: 

1120 - 

1042 

Regel: 

1130 - 

1064 
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1140 - 

1086 
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1150 - 

t063 
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1160 - 

544 
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1170 - 

550 
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1180 - 

555 
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1190 - 

560 
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1200 - 

567 
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1210 - 
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Rege1: 

1220 - 

519 
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1230 - 

522 
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1240 - 

527 
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1250 - 

532 
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537 

Rege1: 
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542 
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547 
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1322 

Regei: 

1340 - 

941 
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1350 - 

952 

Regel: 
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792 
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1370 - 

793 
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747 
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1430 - 

1524 

Rege1: 

1440 - 

1436 

Rege1: 

1450 - 

372 

Rege1: 

1460 - 

347 

Rege1: 

1470 - 

255 

Rege1: 

1480 - 

1460 

Rege1: 

1490 - 

832 

Rege1 : 

1500 - 

821 

Rege1: 

1510 - 

2210 

Rege1: 

1520 - 

2153 

Rege1: 

1530 - 

2213 

Rege1: 

1540 - 

2198 

Rege1: 

1550 - 

3065 

Rege1: 

1560 - 

3049 

Rege1: 

1570 - 

2990 

Rege1: 

1580 - 

2760 

Regel: 

1590 - 

395 

Rege1: 

1600 - 

876 

Rege1: 

1610 - 

321 
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1620 - 

1074 
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2480 

- 

384 

Regel: 

3340 

- 

1919 

Rege! 
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- 

2036 

1630 - 

408 

Regel 

2490 

- 

391 

Rege1: 

3350 


431 

Rege! 

3580 

* 

2372 

1640 - 

764 

Rege! 

2500 

- 

142 

Rege1: 

3360 


518 

Regel 

3590 

- 

333 

1650 - 

202 

Rege! 

2510 

- 

443 

Rege1: 

3370 

— 

929 

Rege! 

3600 

- 

356 

1660 - 

1961 

Regel 

2520 

- 

352 

Rege!: 

3380 


962 

Rege 1 

3610 

- 

846 

1670 - 

212 

Rege! 

2530 

- 

3595 

Rege!: 

3390 

— 

1020 

Rege! 

3620 

- 

435 

1680 - 

930 

Rege! 

2540 

- 

340 

Rege1: 

3400 

- 

2120 

Rege! 

3630 

- 

476 

1690 - 

1038 

Rege! 

2550 

- 

1439 

Rege1: 

3410 

— 

2372 

Rege! 

3640 

- 

231 

1700 - 

932 

Rege! 

2560 


2363 

Rege!: 

3420 

• 

431 

Rege! 

3650 

• 

1048 
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1577 

Rege! 
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- 

2405 
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932 
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430 
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3440 

— 

541 
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1145 
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315 
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931 
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3470 

— 

327 

Regel 

3700 

- 

419 
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142 

Rege! 
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233 
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1766 

Rege! 
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“ 

276 

1770 - 

1084 

Rege 1 

2630 

- 

326 

Rege1: 

3490 

- 

1623 

Rege! 

3720 

- 

293 

1780 - 

2764 

Rege! 

2640 

- 

824 

Rege1: 

3500 

— 

2393 

Rege! 

3730 

- 

963 

1790 - 

2383 
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2650 

- 

1039 i 

Rege1: 

3510 

— 

2397 

Rege! 

3740 

- 

1268 
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1595 

Rege! 

2660 

- 

400 

Rege1: 

3520 

- 

2393 

Rege! 
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* 
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3336 

Rege! 
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- 
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— 
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- 

256 
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2001 
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2680 

- 

244 
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- 

2397 
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3770 

- 

129 

1830 - 

543 

Regel 

2690 

- 

791 

Rege!: 

3550 

— 
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3073 
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- 

311 

Regel: 

3560 

- 
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To+aa' 

: 402219 



1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 


1086 

1704 

348 

1869 

142 

1253 

410 

700 

221 

202 

680 

163 

434 

410 

819 

677 

1307 

348 

142 

295 
345 
275 
142 

1255 

1357 
231 
316 
372 

1751 

142 

3336 

571 

142 

443 

462 

781 

796 

523 

296 
799 
263 
235 
142 
434 

329 
721 
644 
812 
295 

330 
330 
203 
206 

1358 
235 

2053 

443 

233 

443 

233 

142 

443 

270 
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2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 


1566 

287 
809 

1706 

1097 

405 

1144 

437 

282 

486 

296 

291 

295 

304 
468 
236 
142 
533 
295 

283 
282 
812 

1641 

1642 
1546 

330 

332 

912 

284 
1125 
1122 

689 

372 

142 

1678 

499 

399 

809 

285 
1500 

305 
997 
787 
295 
894 
414 

288 
1151 

874 

235 

571 

142 

1048 

1044 

1953 

286 
0 

929 

324 

835 

283 

2710 

347 



Dagen berekenen 

door: Wilco Oolbekkink 

10 DATA ZONDAG,MAANDAG,DINSDAG,WOENSDAG,D 
ONDERDAG,VRIJDAG„ZATERDAG 
20 PRINT"BRENG DATUM IN” 

30 INPUT”DAG (1-31)";DD 
40 IF DD<1 OR DD>31 THEN 30 
50 INPUT "MAAND (1-12)”;MM 
60 IF MM<1 OR MM>12 THEN 50 
70 INPUT "JAAR (1-3000)";YY 
80 IF YY<1 OR YY>3000 THEN 70 
90 IF MM>2 THEN 110 
100 YY=YY-1:MM=MM+12 
110 H1=INT(YY/100):H2=YY-H1*100 
120 H3=INT(2.6001*(MM-2)-.2)+DD+H2+INT(H2 
/4 )+INT(Hl/4)-2*Hl 
130 H3=H3-INT(H3/7)*7+l 

140 ' PROGRAMMAREGELS 100 T/M 130 VERWERK 
EN DE INGEBRACHTE GEGEVENS 
150 FOR 1=1 TO H3:READ H$:NEXT I 
160 PRINT”DEZE DAG VALT OP EEN ";H$ 

170 END 
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Vespuccistraat 48 
1056 SM Amsterdam 


Eindelijk een speciaalzaak voor de MSX- 
software. 

Sinds midden oktober heeft Amsterdam een 
echte MSX software winkel in de 
Vespuccistraat. In deze r MSX SOFTSHOP' 
is bijna alle software, die voor de MSX 
gemaakt is, verkrijgbaar. Ook boeken voor 
de MSX zijn in ruime mate aanwezig; de 
voorraad hiervan is echter niet zo 
uitgebreid als van ’Het 

Computercollectief’. Hardware zal je in deze 
winkel nauwelijks aantreffen. Verder vind 
je hier wel de bladen van de hobbyclubs, de 
MSX bladen uit binnen- en buitenland, de 
cassettes van de MSX-gids en allerlei 
folders en drukwerkjes betreffende het 
MSX systeem. 

De zaak is voornamelijk opgezet uit 
onvrede met de verkrijgbaarheid (en de 
service) bij andere bedrijven. Soms moest 
vele kilometers gereisd worden om een 
stukje software te bemachtigen en vaak was 
er geen mogelijkheid deze software rustig 
te testen. 

Daar is nu verandering in gekomen. Bijna 
alle software is hier -bij de MSX 
SOFTSHOP- aanwezig en alles mag bekeken 
of getest worden. Vooral bij spelletjes is het 
prettig om in de gelegenheid te zijn even 
een ronde te spelen, voordat tot aanschaf 
wordt overgegaan; er zijn heel wat 
spelletjes die, ondanks fraaie plaatjes en 
mooie beloftes op de doos, behoorlijk 
kunnen tegenvallen. En weet je het niet, 
vraag het maar gerust, de heer Westera 
kent de pogramma’s allemaal. Alles wat 
nieuw binnenkomt wordt direkt in de 
computer gestopt en door hem -en zijn 
vrouw- getest. Dat dit belangrijk is blijkt 
uit het feit, dat zij tot de ontdekking zijn 
gekomen dat er toch kleine verschillen zijn 
tussen de diverse MSX computers. Zo 
blijken enkele ROM-cartridges absoluut 
niet op de PHILIPS te willen werken en ook 
wat dit betreft kunnen zij de kopers dus 
goed informeren. Er is inmiddels kontakt 
met PHILIPS opgenomen en we zijn 
benieuwd naar de reaktie uit het zuiden. 





ALS WARME BROODJES 


De beschrijvingen van software -vooral de 
spelletjes- in bladen zoals de MSX-Gids, 
MSX Computer Magazine en MSX Computing 
hebben een enorme invloed op de verkoop. 
Na een gunstige recensie van een spel is 
meestal de voorraad hiervan binnen een 
dag uitverkocht. Bij de MSX SOFTSHOP is 
men dan ook helemaal niet blij met 
adverteerders die software voordragen die 
nog niet leverbaar is; veel mensen komen 
dan vaak, soms van ver, voor niets aan de 
deur. 

Wat ook hard loopt is Viditel. De 
belangstelling hiervoor is boven 
verwachting. Ook de diverse publikaties 
(zie b.v. Personal Computer Magazine) 
over de taal 'C' heeft de vraag naar deze 
software flink doen toenemen en... de 
compiler is onderweg. Opvallend is het 
toenemen van software op diskette. De 
bezitters van diskdrives zullen hiermee wel 
blij zijn. 

Het allerpopulairst blijft PACKMAN, die nog 
steeds niet voor de MSX verkrijgbaar is. 
Alle mooie varianten ten spijt blijven de 
klanten vragen wanneer nu eindelijk eens 
een echte, ouderwetse, Packman voor de 
MSX op de markt komt. Net als bij andere 
merken computers en in de automatenhal 
blijft dit spel nog steeds een topper. 
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DE TOP TIEN 


De MSX Softshop stelt ook een Top-10 
samen aari de hand van de 
verkoopresultaten. Bij het schrijven van 

dit artikel ziet deze Hitlijst er als volgt uit: 

1. ROADFIGHTER -arcade (cart) 

2. JETFIGHTER - sim./aktie (cass) 

3. FLIGHTSIM. 737 - simulatie (cass) 

4. SLAPSHOT -arcade (cass) 

5. ROLLERBALL - arcade (cart) 

6. TASWORD - tekstverwerker (cass) 

7. MASTERVOICE - spraakprogr. (cass) 

8. TENNIS - arcade (cart) 

9. VIDITEL (MT)- communicatie (cart) 

10. RIVERRAID -arcade (cass) 

Vrij nieuw en interressant in deze rij is 

'Rollerball'. Dit is een flipperkast, 
maar dan wel een van de betere soort. De 
prijs is FI. 69,00 en voor de flipperfanaten 
is deze kast zeker de moeite waard (hij 
komt heel aardig in de buurt van de 
inmiddels beruchte 'Night Mission’ -ook wel 
’Sublogic Pinball' genoemd-). 


LAATSTE NIEUWS. 

Voor de freak, die denkt alles al te hebben, 
heeft de Softshop zopas een kleine partij 
originele Japanse software 

binnengekregen. Onleesbaar (behalve als 
je Japans kent) maar uitstekend speelbaar! 
Dus misschien toch nog iets voor de fanaat 
of verzamelaar. 

Informeer even, de voorraad is beperkt. 
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Vespuccistraat 48 
het Mercatorplein) 

Amsterdam 
Tel: 020 - 123206 


NIEUWS ★ 
NIEUWS 


Vanaf 19 OKTOBER is onze 
MSX-speciaalzaak geopend! 

i** De lste MSX software speciaalzaak in Am¬ 
sterdam 

■•‘Het meest uitgebreide assortiment, ook in 
boeken, tijdschriften e.d. 

■* Objektieve voorlichting en ad vies 
Listing-service 

«•- Doorlopende demonstraties 


Verzendmg door heel Nederland . 


020-993519 




020-123206 
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SCORETELLING 

De meeste MSX spelletjes staan nog 
steeds op cassette en daardoor is het 
niet mogelijk om de behaalde scores en 
de hi-score op deze cassettes weg te 
schrijven en bij een volgende keer spe- 
len weer in te lezen. De scores moeten 
dus -op de klassieke manier- op papier 
worden bijgehouden of -hoe kan het ook 
haast anders- door middel van een klein 
programma op de computer. 

Dit programma kan de puntentotalen van 
16 verschillende spelen en 8 spelers 
(per spel) bijhouden en bewaren op een 
datacassette. Het programma werkt met 
een menu en fouten zijn vrijwel niet 
mogelijk. Ook in dit programma zit weer 
een invoerroutine voor cijfers en let¬ 
ters met controle op foute aanslagen. 
Het invoeren en wijzigen van de gegevens 
gebeurt door met de cursortoetsen de 
cursor bij het juiste veld te plaatsen 
en vervolgens de gegevens in te tikken. 
Na een RETURN worden deze gegevens dan 
ingevoerd. Met de ESC-toets kan overal 
vanuit het programma terug worden ge- 
sprongen naar het hoofdmenu. Er wordt 
wel een naam voor het bestand gevraagd 
bij het opstarten van het programme. 
Wanneer het om een reeds bestaand be¬ 
stand gaat, dan moet dit eerst van de 
data-cassette worden ingeladen , maar ook 
dit wordt allemaal met een menu gere- 
geld. Wie zelf wijzigingen in het pro¬ 
gramma wil aanbrengen, moet goed de 
routines in de gaten houden, waarmee de 
cursor wordt geplaatst. Dit verplaatsen 
gebeurt met een teller, die aan de posi- 
tie van de cursor is gekoppeld en tevens 
wordt gebruikt voor het nummer van de 
variabele, waarin de gegevens zijn -of 
worden- geplaatst. Even meetellen dusI 

Succes. 



10 ' SPELSCORE INDEX 
20 KEYOFF:SCREEN 0,0,1:WIDTH40 
30 CLEAR 2000:COLOR 1,11,11 
40 DEFINT A-Z:DEFSNG S 
50 DIM SP$(16),SC(8,8),NM$(8) 

55 A0$="S CORETABEL" 

60 A1$="WELK NUMMER?:" 

70 A2$="[ESC] = TERUG NAAR MENU" 

75 A3$="(c)1986.MSX-Gids..Ams 

terdam" 

80 FOR 1=1 TO 16:SP$(I)=STRING$(30,46):N 

ext 

90 FOR 1=1 TO 8:NM$(I)=STRING$(20,46):NE 
XT 

98 ' 

99 'MENU 

100 GOSUB 400 
125 GOSUB 5000 

130 LOCATE 0,8:PRINT”[1] = NIEUW SPEL IN 
VOEREN" 

140 PRINT:PRINT”[2] = SCORES BIJWERKEN" 
150 PRINT:PRINT"[3] = NIEUWE SPELER INVO 
EREN" 

160 PRINT:PRINT"[4] = SAVE + EINDE" 

170 LOCATE 0,22,1:PRINT Al$; 

180 GOSUB 6000 
200 X=VAL(X$) 

210 ON X GOTO 1000,2000,3000,4000 
220 GOTO 180 

398 ' 

399 'SCHERMOPMAAK 

400 LOCATE,,0:CLS 

410 PRINTSPC(9);A0$:PRINT 
420 PRINT A3$ 

430 LOCATE 0,24,0:PRINT A2$; 

450 RETURN 

898 ' 

899 'KEYBOARD INPUT 

900 A$=CHR$(8)+" "+CHR$(8):X$="" 

915 TIME=0 

920 W$=INKEY$ 

921 IF TIME=20 THEN LOCATE,,0 

922 IF TIME=>40 THEN LOCATE,,1:TIME=0 

923 IF W$="" THEN 920 

924 IF W$=CHR$(27)THEN RETURN 100 

925 IF W$=CHR$(30) OR W$=CHR$(31)THEN X$ 
=W$:RETURN 

928 IF W$>CHR$(47)AND W$<CHR$(58) AND N= 
1 THEN 970 

929 IF W$>CHR$(31)AND W$<CHR$(123) AND N 
=0 THEN 970 

930 IF W$OCHR$(8)THEN950 
935 IF X$=""THEN BEEP:GOTO920 

940 IF LEN(X$)=1 THEN X$="":PRINTA$;:GOT 
0 920 

945 X$=LEFT$(X$,LEN (X$ )-l):PRINTA$;:G0T0 
920 

950 IF W$=CHR$(13)THEN RETURN 

960 BEEP:GOTO920 

970 PRINTW$;:X$=X$+W$:GOTO920 

998 ' 

999 'SPEL INVOEREN 

1000 N=0 

1010 GOSUB 400 
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1035 L0CATE2,4:PRINT"SPEL:” 

1040 FOR 1=1 TO 16 
1050 LOCATE 0,4+1,0 

1060 PRINT USING”#//// = ";I;:PRINTSP$(I) 

:NEXT 

1100 1=5 

1110 IF I<5 THEN 1=20 
1120 IF I>20 THEN 1=5 
1130 LOCATE 7,1,1 
1150 GOSUB900 

1160 IF X$=CHR$(30)THEN I=I-l:GOTO 1110 
1170 IF X$=CHR$(31 )THEN 1=1+1’.GOTO 1110 
1180 SP$(I-4)=LEFT$(X$,30) 

1190 1=1+1:GOTO1110 

1998 " 

1999 "SCORE BIJWERKEN 

2000 N=1 

2010 GOSUB 400 
2040 FOR 1=1 TO 16 
2050 LOCATE 0,3+1,0 

2060 PRINTUSING"#//// = ";I;:PRINT SP$(I): 
NEXT 

2070 LOCATE 0,21,0:PRINTSPC(39); 

2075 LOCATE 0,21,0 

2080 PRINT" WELK SPELNUMMER? : " ; 

2090 GOSUB 900 

2100 X=VAL(X$):IF X<1 OR X>16 THEN 2070 

2110 Y=X:GOSUB 400 

2130 LOCATE 0,5,0 

2140 PRINT"SPEL: ”;SP$(Y) 

2150 LOCATE 0,8,0 

2160 PRINTSPC(21); *‘OUDE”;SPC(5); "NIEUWE" 
2165 PRINT"NAAM";SPC(17);"SCORE";SPC(4); 
"SCORE" 

2170 FOR 1=1 TO 8 
2180 LOCATE 0,1+10,0 
2190 PRINT NM$(I) 

2200 LOCATE 20,1+10,0 

2210 PRINT USING”//#////#//# - //"; SC(Y, I) ,0 
2220 NEXT 
2250 1=11 

2260 IF I<11 THEN 1=18 
2270 IF I>18 THEN 1=11 
2280 LOCATE 30,1,1 
2290 GOSUB 900 

2300 IF X$=CHR$(30)THEN 1=1-1:GOTO 2260 
2310 IF X$=CHR$(31)THEN 1=1+1:GOTO 2260 
2320 SC(Y,I-10)=VAL(X$) 

2330 1=1+1:GOTO 2260 

2998 " 

2999 'SPELER INVOEREN 

3000 N=0 

3010 GOSUB 400 

3035 LOCATE 0,4: PRINT"SPELER:" 

3040 FOR 1=1 TO 8 
3050 LOCATE 0,5+1,0 

3060 PRINT USING"//#// = ";I;:PRINT NM$(I 

):NEXT 

3100 1=6 

3110 IF I<6 THEN 1=13 
3120 IF I>13 THEN 1=6 
3130 LOCATE 7,1,1 
3150 GOSUB900 


3160 IF X$=CHR$(30)THEN 1=1-1’.GOTO 3110 
3170 IF X$=CHR$(31 )THEN 1=1+1:GOTO 3110 
3180 NM$(1-5)=LEFT$(X$,20) 

3190 1=1+1:GOTO 3110 

3998 ' 

3999 "SAVE DATA 

4000 N=0:GOSUB 400 
4010 LOCATE 0,8,0 

4020 PRINT"Zet de datacassette klaar voo 
r bet" 

4030 PRINT"wegschri jven van bet bestand" 
4050 BEEP:LOCATE 0,16,0: PRINTSPC (39 ); 
4060 LOCATE 0,16,0 
4070 PRINT "Klaar? J/N:"; 

4080 GOSUB 900 

4090 IF X$="J" OR X$="j" THEN 4200 

4100 GOTO 4050 

4200 X$="CAS:”+SP$(0) 

4210 OPEN X$ FOR OUTPUT AS//1 

4220 FOR 1=0 TO 16 

4230 PRINT//1,SP$(I):NEXT 

4240 FOR 1=1 TO 8 

4250 PRINT#1,NM$(I):NEXT 

4260 FOR 1=1 TO 8:FOR J=1 TO 8 

4270 PRINT#1,SC(I,J):NEXT J:NEXT I 

4280 CLOSE#1:PRINT 

4300 PRINT: PRINT" EINDE..":END 

4998 ' 

4999 "LOAD DATA/NIEUW BESTAND 

5000 IF SP$(0)O""THEN RETURN 
5010 LOCATE 0,24,0; PRINTS PC ( 39 ) ; 

5020 LOCATE 0,6:PRINT"ER IS NOG GEEN BES 
TAND IN HET GEHEUGEN" 

5030 PRINT:PRINT 

5040 PRINT"[1] = BESTAND INLEZEN VAN DAT 
ACASSETTE" 

5050 PRINT:PRINT"[2] = NIEUW BESTAND MAK 
EN" 

5060 LOCATE 0,16,1:PRINT Al$; 

5070 GOSUB 6000 

5080 X=VAL(X$):IFX<1 OR X>2 THEN 5070 

5100 LOCATE 0,20,1 

5110 PRINT"NAAM V/H BESTAND" 

5115 INPUT"(MAX. 6 LETTERS): ";X$ 

5120 SP$(0)=LEFT$(X$,6) 

5130 IF X=2 THEN RETURN 100 
5200 GOSUB 400 

5210 LOCATE0,24,0:PRINTSPC(39); 

5220 LOCATE 0,6,0 

5230 PRINT"ZET DATACASSETTE KLAAR VOOR I 
NLEZEN” 

5240 PRINT"EN DRUK EEN TOETS_ 

5250 GOSUB 6000 
5260 X$="CAS:"+SP$(0) 

5300 OPEN X$ FOR INPUT AS//1 

5310 FOR 1=0 TO 16 

5320 INPUT//1 ,SP$(I):NEXT 

5330 FOR 1=1 TO 8 

5340 INPUT//1 ,NM$(I):NEXT 

5350 FOR 1=1 TO 8:FOR J=1 TO 8 

5360 INPUT//1,SC(I,J):NEXT J:NEXT I 

5370 CLOSE#1 

5390 RETURN 100 

5998 " 
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5999 "CURSOR 

6000 TIME-0 
6010 X$=INKEY$ 

6020 IF TIME -20 THEN LOCATE } ,0 
6030 IF TIME=>40 THEN LOCATE ,,1:TIME 
6040 IF X$="" THEN 6010 
6050 RETURN 


‘0 


CONTROLS TELLING 
SCORETELL ING 


Reg© 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 


Regel: 

399 - 

0 

Regel; 

2998 - 

0 

Regel: 

400 - 

321 

Regel: 

2999 - 

0 

Regel: 

410 - 

643 

Regel: 

3000 - 

334 i 

Regel: 

420 - 

297 

Rege1: 

3010 - 

300 J 

Rege!: 

430 - 

377 

Reael; 

3035 - 

298 I 


Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 


10 

20 

30 

40 

50 

55 

60 

70 

75 

80 

90 

98 

99 
100 
125 
130 
140 
150 
160 
170 
180 
200 
210 
220 
398 


439 

389 

569 

1155 

1484 

1293 

2040 

3109 

708 

702 

0 

0 

300 

310 

302 

145 

145 

145 

376 

290 

935 

1382 

331 


Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 


450 - 

898 - 

899 - 

900 - 
915 - 

920 - 

921 - 

922 - 

923 - 

924 - 

925 - 

928 - 

929 - 

930 - 
935 - 
940 - 
945 - 
950 - 
960 - 
970 - 

998 - 

999 - 
1000 - 
1010 - 
1035 - 
1040 - 
1050 - 
1060 - 
1100 - 
1110 - 
1120 - 
1130 - 
1150 - 
1160 - 
1170 - 
1180 - 
1190 - 

1998 - 

1999 - 

2000 - 
2010 - 


142 

0 

0 

1944 

459 

598 

1155 

1414 

956 

1503 

2877 

2117 

3282 

1668 

980 

1651 

1862 

1375 

192 

327 

0 

0 

334 

300 

300 

708 

673 

894 

334 
1039 
1037 

419 

290 

1896 

1896 

1533 

644 

0 

0 

335 
300 


Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 


2075 

2080 

2090 

2100 

2110 

2130 

2140 

2150 

2160 

2165 

2170 

2180 

2190 

2200 

2210 

2220 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 


374 
1357 
290 
935 
416 
360 
487 
363 
1806 
2211 
702 
677 
490 
695 
1387 
131 
338 
1041 
1039 
440 
290 
1896 
1896 
1551 
644 


3040 

3050 

3060 

3100 

3110 

3120 

3130 

3150 

3160 

3170 

3180 

3190 

3998 

3999 

4000 
4010 
4020 
4030 
4050 
4060 
4070 
4080 
4090 
4100 
4200 

4210 

4220 


4240 

4250 

4260 

4270 

4280 

4300 

4998 

4999 


5010 

5020 

5030 

5040 


702 

674 

894 

335 

1033 

1031 

419 

290 

1896 

1896 

1516 

644 

0 

0 

334 

363 

3449 

2987 

192 

369 

964 

290 

1780 

376 
612 

966 

707 

595 

702 

587 

702 

664 

233 

145 

0 

0 

1342 

377 
300 
145 

2828 


Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 


Rege!: 

2040 - 

Rege1: 

708 Regel: 

5210 - 
5220 - 

377 

361 

Regel 

Regel 

6010 - 
6020 - 

599 

1155 

RegeI: 

2050 - 

672 

Regel: 

5230 - 

2692 

Regel 

6030 - 

1414 

Regel: 

2060 - 

862 

Regel: 

5240 - 

1624 

Regel 

6040 - 

947 

Rege1: 

2070 - 

374 

Regel: 

5250 - 

290 

Re gel 

6050 - 

142 


Rege 

Rege 

Rege 


5050 - 
5060 - 
5070 - 
5080 - 
5100 - 
5110 - 
5115 - 
5120 - 
5130 - 
5200 - 


145 

370 

290 

935 

374 

1280 

1189 

1192 

959 

300 


Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 


5320 - 
5330 - 
5340 - 
5350 - 
5360 - 
5370 - 
5390 - 

5998 - 

5999 - 

6000 - 


583 

702 

575 

702 

652 

233 

256 

0 

0 

459 


5260 

5300 

5310 


612 

764 

707 


Totaa1: 137204 






- ■•■■■■ ‘ vivT^ 


... 

$ip; ' 

s:®-,' v-.:.:®; : mmm 


wmm 
iiffil 

v.-.-.-M-, » 



34 


(C) Junior 99 


















































































































SLANGENSPEL 


Tijdens het spelen van 'Hiper Viper', 
voor een recensie in dit blad, kreeg ik 
toch een beetje 'heimwee' naar de een- 
voudige -maar goede- spelletjes van de 
Atari- spelcomputer. Een van die spelle¬ 
tjes was 'Tape Worm 1 . Ik heb dat al eens 
gemaakt voor de Apple en had toen een 
BASIC-Assembler nodig, omdat in gewoon 
BASIC de snelheid veel te laag was. Op 
de MSX zou een redelijke snelheid wel 
mogelijk moeten zijn en ziehier het 
resultaat. 

Met meer dan redelijke snelheid is dan 
hier de MSX-versie van dit slangenspel 
(of wormen, rupsen, zie maar.) Het spel 
bestaat uit 5 rondes met verschillende 
speelvelden. Het is de bedoeling de 20 
muzieknootjes van het veld weg te wer- 
ken. Bij het verorberen van een muziek- 
noot wordt de staart van de slang steeds 
langer; terwijl de snelheid steeds iets 
minder wordt. Nadat alle 20 toontjes weg 
zijn, komt de volgende ronde met een 
lastiger veld. Pas aan het eind van alle 
5 de rondes wordt een score vermeld, die 
bestaat uit de tijd, die de speler nodig 
heeft gehad om de 5 rondes te doorlopen. 
Net als bij MSX-Man (uit het vorige 
nununer) heb ik hier weer gebruik gemaakt 
van SCREEN 1 en de tekenset van de MSX 
on de velden op te bouwen. Daar het al 
tegen de verschijningsdatum van het 
blad liep, was dit de snelste manier om 
een spel in korte tijd te realiseren. De 
eerste ronde is vrij makkelijk, maar 
daarna wordt het heel erg moeilijk. De 
besturing van de slang kan met zowel de 
cursortoetsen als de joystick gedaan 
worden en deze besturing is een kwestie 
van timing. Omdat het hele programma in 
BASIC is geschreven is het aftasten van 
de locaties net iets te traag! De juiste 
richting moet dan ook worden gekozen 
vlak voor het moment dat de slang deze 
positie bereikt. Even wennen dus! 

Veel plezier met deze klassieker. 






10 SCREENl: WIDTH 32:KEY0FF 
20 CLEAR 500:DEFINT A-Z 
30 COLOR 11,1,4:LOCATE,, 0:CLS 
40 DIM X(100 ):N=RND( -TIME) 

50 L=1:M=0 
60 LOCATE 0,10,1 

62 PRINT"[J]=J0YSTICK of [K]=KEYB0ARD:"; 

65 X$-INKEY$:IF X$=""THEN65 

67 IF X$="J"0R X$=”j"THENQ=l:GOTO70 

68 IF X$="K"QR X$ s ="k , 'THENQ=0: GOTO70 

69 GOTO60 

70 SOUND 7,248:SOUND 1,0:SOUND. 3,0 

72 SOUND 5,0:SOUND 8,16:SOUND 9,16:SOUND 
10,16 

74 SOUND 11,79: SOUND 12,27:SOUND 13,9 
76 LOCATE,,0 
80 TIME=0 
100 GOSUB 500 

150 ON L GOSUB 1000,2000,3000,4000,5000,6 

000 

198 ' 

199 'MAIN LOOP 

200 IFSTICK(Q)-3THENZ=1 
210 IFSTICK(Q)=7THENZ=-1 
220 IFSTICK(Q)=*lTHENZ=-32 
230 IFSTICK(Q)=5THENZ=32 
235 IF Z=0 THEN 200 

240 IFVPEEK(X(0)+Z)O32THENGOSUB400 

250 F0RI=NT01STEP-1 

260 SWAPX(I-1),X(I):NEXT 

270 X(0)=X(1)+Z:VPOKEX(0),2: VPOKEX(l) ,9 

280 VPOKEX(N),32 

290 GOTO200 

398 ' 

399 'SUBROUTINE GEEN BLANCO (BOTSING) 

400 IFN<20THENN-N+1 
402 IFL<5THENN-N+1 

405 IFVPEEK(X(0)+Z)=219THEN480 
407 IFVPEEK(X(0)+Z)=9THEN480 
410 IFVPEEK(X(0)+Z)=13THEN450 
415 SOUND0,1:SOUND2,100:SOUND4,200 
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420 SOUND13,9:GOTO460 

450 SOUND0,10:SOUND2,30:SOUND4,60 

455 SOUND13,9 

460 VPOKEX(0)+Z, 32 : T=T,-1 

465 IFT=0THENL=L+1:RETURN100 

470 RETURN 

478 " 

479 "BOTSING 

480 FOR 1=0 TO 15:FOR J=0 TO 15:COLOR,,J: 
NEXTJ 

482 SOUND 1,2:SOUND 3,4:SOUND 5,6 
485 SOUND0,I*5:SOUND2,I*10:SOUND4,1*15 
490 SOUND 13,9:COLOR ,,I:NEXT I 
492 SOUND 1,0:SOUND 3,0:SOUND 5,0 
495 COLOR,,4:RETURN100 

498 ' 

499 "BLANCO VELD OPZETTEN 

500 FOR 1=6144 TO 6910:VPOKE I,32:NEXT 
510 FOR I=0TO31:VPOKE 1+6144,219:NEXT 
520 FOR I=0TO31:VPOKE 1+6880,219:NEXT 
530 FOR 1=6144 TO 6880 STEP 32 

540 VPOKE I,219:VPOKE 1+31,219 
550 NEXT 
600 N=3:Z=0 

610 FOR 1=0 TO 3:X(I)=6518+I:NEXT 
620 VPOKE X(0),2 

630 FOR 1=1 TO 3:VPOKE X(I),9:NEXT 
640 VPOKE X(N),32 
645 M=M+TIME/3000:TIME =0 
650 RETURN 

998 " 

999 "VELD 1 

1000 FOR 1=1 TO 20 
1060 X=RND(1>*850+6145 

1070 IF VPEEK(X)<>32 THEN 1060 

1080 IF I<11 THEN VPOKE X,13 ELSE VPOKE X 

>14 

1090 NEXT 
1095 T=20 
1100 RETURN 

1998 " 

1999 "VELD 2 

2000 FOR 1=1 TO 24 

2010 VPOKE(6531+1),219:NEXT 

2050 FOR 1=1 TO 20 

2060 X=RND(1>*850+6145 

2070 IF VPEEK(X)<>32 THEN 1060 

2080 IF I<11 THEN VPOKE X,13 ELSE VPOKE X 

>14 

2090 NEXT 
2095 T=20 
2100 RETURN 

2998 " 

2999 "VELD 3 

3000 FOR 1=6247 TO 6828 STEP 33 
3010 VPOKE I ,219:NEXT 

3020 FOR 1=6263 TO 6800 STEP31 

3030 VPOKE I,219;NEXT 

3035 VPOKE 6511,32 

3050 FOR 1=1 TO 20 

3060 X=RND(1>*850+6145 

3070 IF VPEEK(X)<>32 THEN 2060 

3080 IF I<11 THEN VPOKE X,13 ELSE VPOKE X 

>14 


3090 NEXT 
3100 T=20 
3110 RETURN 

3998 ' 

3999 " VELD 4 

4000 FOR 1= 6243 TO 6268 
4010 VPOKE(I),219:NEXT 

4020 FOR 1=6243 TO 6723 STEP32 

4030 VPOKE(I),219:NEXT 

4040 FOR 1=6723 TO 6746 

4050 VPOKE(I>,219:NEXT 

4060 FOR 1=6746 TO 6426 STEP-32 

4070 VPOKE(I>,219:NEXT 

4080 FOR 1=6426 TO 6406 STEP-1 

4090 VPOKE (I>,219:NEXT 

4100 VPOKE 6438,219:VPOKE 6470,219 

4110 FOR 1=1 TO 20 

4120 X=RND(1>*850+6145 

4130 IF VPEEK(X)<>32 THEN 4120 

4140 IF Kll THEN VPOKE X, 13 ELSE VPOKE X 

,14 

4150 NEXT 
4160 T=20 
4170 RETURN 

4998 " 

4999 " VELD 5 

5000 FOR 1=6243 TO 6267 
5010 VPOKE(I>,219:NEXT 
5020 FOR 1=6755 TO 6779 
5030 VPOKE(I),219:NEXT 

5040 FOR 1=6275 TO 6435 STEP 32 

5050 VPOKE(I>,219:VPOKE(1+24),219:NEXT 

5060 FOR 1=6499 TO 6755 STEP 32 

5070 VPOKE(I),219:VPOKE(1+24),219:NEXT 

5080 FOR 1=6255 TO 6415 STEP32 

5090 VPOKE(I>,219:VPOKE(1+320),219:NEXT 

5110 FOR 1=1 TO 20 

5120 X=RND(1>*850+6145 

5130 IF VPEEK(X)<>32 THEN 5120 

5140 IF Kll THEN VPOKE X,13 ELSE VPOKE X 

,14 

5150 NEXT 
5160 T=20 
5170 RETURN 

5998 " 

5999 "EINDE SPEL 

6000 M=M+TIME/3000:CLS:PRINT 
6010 PRINT” GEHAALD!!!!!":PRINT 

6020 PRINT” Alle velden doorlopen in” 

6030 PRINT M;" MinatenPRINT:PRINT 
6050 PRINT” Nog een spel? J/N: "; 

6060 X$=INKEY$:IF X$="" THEN 6060 
6070 IF X$=”J"ORX$="j"THEN L=1:M=0:TIME=0 
:RETURN100 

6080 IF X$="N"ORX$="n"THEN END 
6090 GOTO6060 
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Reget: 3050 - 712 

Reget: 3060- 1467 

Reget: 3070 - 1460 

Reget : 3080 - 1054 

Regel: 3090 - 131 

Reget: 3100 - 358 

Re§el : 3110- 142 

Rege I: 3998 - 0 

Rege t : 3999 - 0 

Reget; 4000 - 986 

Reget : 4010 - 630 

Regel: 4020- 1166 

Reget : 4030 - 630 

Regel : 4040 - 924 

Regel : 4050 - 630 

Regel ; 4060 - 1359 

Regel: 4070- 630 

Regel: 4080- 1277 

Reget : 4090 - 630 

Regel: 4100- 567 

Regel : 4110 - 712 

Regel: 4120- 1467 

Regel: 4130- 1480 

Regel ; 4140 - 1054 

Reget: 4150 - 131 

Reget: 4160 - 358 

Reget: 4170 - 142 

Rege t : 4998 - 0 

Rege I: 4999 - 0 

Regel: 5000 - 985 

Reget: 5010- 630 

Regel: 5020 - 989 

Reget: 5030 - 630 

Reget: 5040 - 1165 

Regel: 5050 - 630 

Rege I: 5060 - 1199 

Reget : 5070 - 630 

Reget; 5080 - 1125 

Reget: 5090- 630 

Reget: 5110- 712 

Reget: 5120 - 1467 

Reget: 5130 - 1460 

Reget : 5140 - 1054 

Reget: 5150- 131 

Reget: 5160 - 358 

Reget: 5170 - 142 

Reget : 5998 - 0 

RegeI: 5999 - 0 

Reget: 6000 - 1304 

Reget: 6010 - 896 

Regel: 6020 - 2554 

Regel: 6030 - 1163 

Reget: 6050 - 1609 

Reget: 6060 - 599 

Regel: 6070- 1979 

Rege I: 6080 - 1783 

Rege I: 6090 - 346 


To+aal: 112700 



MSX-MIND door: M.Buysse 



MASTERMIND 


Een inzending van Martin Buysse. 


Dit spelletje is een computervariant van 
het zeer bekende 'Master Mind'. 

Voor wie het spel niet kent volgen hier 
de spelregels: 


De computer bedenkt een kleurcode , waar- 
-v na U deze code moet vinden. 

Heeft U een kleur gevonden, doch niet op 
de juiste plaats, dan krijgt U een witte 
balk naast het veld. Is zowel de kleur 
als de positie juist, dan verschijnt er 
een zwarte balk. 4 zwarte balken bete- 
kent, dat de code is gevonden. Er wordt 
bijgehouden hoeveel tijd het vinden van 
r 'it. de code heeft gekost. 
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HOE WORDT HET GESPEELD? 

De funktietoetsen 1 t/m 4 komen overeen 
met de 4 posities van de kleuren. Na het 
indrukken van een funktietoets kan met 
de cijfers 1 t/m 6 (er zijn 6 kleuren) 
de kleur gekozen worden. Heeft U 4 loca- 
ties en kleuren gekozen, dan drukt U op 
de spatiebalk en de code wordt ge- 
plaatst. 

LET OPl 

Zonder kleurenbeeldscherm is dit spel 
erg lastig te spelen. 

Red. Prima spel, Martin. Op het program- 
ma valt niets aan te merken. Stuur nog 
tnaar eens wat in. 

' ****A******************** 

20 '* MSX MIND * 

30 "* * 

40 '* M.BUYSSE * 

30 '* St.Sebastiaanstr. 5 * 

60 '* 9968 Bassevelde * 

70 '* BELGIE * 

g0 ifc ik A * ** ft A A A & JcJck 

90 COLOR 4,1,1:SCREEN 3:KEY OFF:POKE64683 
! ,255 

100 OPEN "GRP:" AS //I:DEFINTA-Z 
110 DRAW"BM68,50" : PRINT# 1, "MSX" 

120 COLOR 11 

130 DRAW"BM56,100” : PRINT//1, "MIND” 

140 FOR 1=1 TO 3000:NEXT 
150 R=RND(-TIME) 

160 SCREEN2 

170 DRAW“BM38,2”:PRINT#1,”MSX MIND" 

180 RESTORE250:FORT=1TO3 
190 "het scherm tekenen 
200 READB1,B2,B3,B4,B5 
210 LINE(Bl,B2)-(B3,B4),B5,BF:NEXT 
220 FORI=1TO6 
230 READB1,B2,B3,B4 
240 LINE(B1,B2)-(B3,B4),6:NEXT 
250 DATA60,19,120,188,1,30,19,50,188,12,1 
21,0,130,191,1 

260 DATA60,19,60,188,120,19,120,188,190,0 
,190,100,190,100,210,100,210,100,210, 
0,210,0,190,0 
270 FORI=19TO190 STEP17 

280 LINE(30,I)-(50,I),1:LINE(60,I)-(120,I 
),6 

290 NEXT 

300 RESTORE380 

310 FORT=10TO85 STEP15 

320 P=T+3:C=C+1 

330 READ D 

340 PSET(170,T),l:PRINT#1,C 

350 CIRCLE(200,P),4,D 

360 PAINT(200,P),D 

370 NEXT:C=0 

380 DATA15,2,4,6,11,13 

390 DRAW"BM 135,150" :PRINT# 1,"score:’’ 

400 DRAWBM135,130" : PRINT#1, " ti jd 
410 F0RI=1T04 


420 A=RND(1)*6+l 

430 RESTORE380 

440 FORL =1T0 6:READT 

450 IFA=LTHENK=T 

460 NEXT:C(I)=K 

470 NEXT:K=0:A=0 

480 ON KEY GOSUB550,570,590,610 

490 FORI=1T04:KEY(I)0N:NEXTI 

500 TIME=0:1=173 

510 IF STRIG(0)=-1THEN GOTO710 

520 N=N+1 

530 IFN=15THENGOSUB1110ELSE540 
540 GOTO510 

550 F0RT=1T04:KEY(T) STOP:NEXT:GOSUB630 
560 CIRCLE(72,1+8),3,K:PAINT(72,1+8),K:FO 
RT=1T04:KEY(T)ON:NEXT:RETURN510 
570 F0RT=1T04:KEY(T) STOP:NEXT:GOSUB630 
580 CIRCLE(85,1+8),3,K:PAINT(85,1+8),K:FO 
RT=1T04:KEY(T)ON:NEXT:RETURN510 
590 F0RT=1T04:KEY(T) STOP:NEXT:GOSUB630 
600 CIRCLE(97,1+8),3,K:PAINT(97,1+8),K:FO 
RT=1T04:KEY(T)0N:NEXT:RETURN 510 
610 FORT=1T0 4:KEY(T) STOP:NEXT:GOSUB630 
620 CIRCLE(110,1+8),3,K:PAINT(110,1+8),K: 

F0RT=1T04:KEY(T)0N:NEXT:RETURN 510 
630 M$=INKEY$:IF M$=""THEN630 
640 IF ASC(M$)<49 ORASC(M$)>54THEN630 
650 RESTORE370 
660 FORL=49TO54:READ T 
670 IF ASC(M$)=LTHENK=T 
680 NEXT 

690 GOSUB1110:RETURN 

700 "het controleren van de kleurtjes 

710 BEEP 

720 S(1)=POINT(72,1+8) 

730 S(2)=POINT(85,1+8 ) 

740 S(3)=POINT(97,1+8) 

750 S(4)=POINT(110,1+8) 

760 'het aantal zwartjes 
770 F0RT=1T04 
780 IF.C(T)=S(T)THEN Z=Z+1 
790 NEXT 

800,'het aantal witjes 
810 F0RT=1T04 

820 IF A1=0THENIFC(T)=S(1)THEN WI=WI+1:A1 
=1:GOTO860 

830 IF A2=0THENIFC(T)=S(2)THEN WI=WI+1:A2 
=1:GOTO860 

840 IF A3=0THENIFC(T)=S(3)THEN WI=WI+1:A3 
=1:GOTO860 

850 IF A4=0THENIFC(T)=S(4)THEN WI=WI+1:A4 
=1:GOTO860 
860 NEXT 
870 WI=WI-Z 
880 IF Z=0THEN920 
890 F0RT=1T0Z 

900 LINE(30+2+(T*3),1+3)-(30+3+(T*3),1+6) 
, 1»BF 
910 NEXT 

920 IF WI=0THEN960 
930 F0RT=1T0WI 

940 LINE(30+2+(T*3),I+10)-(30+3+(T*3),1+1 
3),15,BF 
950 NEXT 
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960 A1=0:A2=0:A3=0:A4=0:WI=0:BEEP 
970 IF Z=4THEN1010 

980 Z-0:1=1-17:IF I<17THENP=0:GOTO 1040 
990 PSET(123,144),0:PRINT#1," M 
1000 GOTO 510 
1010 T=TIHE:GOSUB1110 
1020 B=(190-I)/l7 
1030 P=1/(B/2*(T/50))*10000 
1040 DRAW”BM180,150”:PRINT#1,P 
1050 DRAW"BM130,180":PRINT#1,"nogmaals{j/ 
n}?" 

1060 I$=INKEY$: IF I$="J"THEN1080 
1070 IF I$="N"THEN SCREEN0:COLOR 15,4,7:E 
ND ELSE 1060 

1080 LINE(130,180)-(250,190),1,BF 
1090 LINE(180,150)-(250,160),1,BF:Z=0:GOT 
0180 

1100 " tijd routine 

1110 N=0:LINE(180,130)-(250,140),1,BF 
1120 DRAW"BM181,130":PRINT#1,INT(TIME/50) 
1130 RETURN 

VELD 7 VAN 
’STUNTVOGEL’ 

VELD 7 VAN DE STUNTVOGEL !?!? 

De 'STUNTVOGEL' nit het vorige nummer is 
een Topper geworden. Wild enthousiaste 
reacties, verzoeken om meer van zulke 
programma’s, diverse mensen die de door 
hun behaalde scores doorbelden en last, 
but not least, een glunderende Alfred 
(ikke dus) die de geestelijke vader is van 
dit programma. Toch zat er een 'foot 1 in 
het artikel! Er stond *7 speelvelden’ als 
kop boven het artikel en het waren er zes! 
Geen nood: de enige opmerking hierover 
kwam van iemand, die zo tevreden was met 
het programma, dat hij het openingsmenu 
oo k wel als 'veld 1 wilde accepteren. 

EEN KLEINE PROGRAMMEER-WEDSTRIJD 

Toch moet er een zevende speelveld komen! 
Ik kan dat natuurlijk zelf wel doen maar 
door al de software tests hebben we hier 
een ieuk pakketje spelletjes liggen en dat 
wil ik aanbieden aan de programmeur die 
dit zevende speelveld ontwerpt (uiteraard 
zijn veld 8,9,10 enz. ook welkom). 

HET 7e SPEELVELD BIJM A KEN 

Het programma is een schoolvoorbeeld van 
gestructureerd programmeren; dus het 
bijmaken van speelvelden moet een fluitje 
van een cent zijn (o.k. stuiver dan, maar 
echt moeilijk is het niet!). 


De velden bestaan uit subroutines, waarin 
alleen de inhoud van de velden staat 
(regels 2000, 3000, 4000, 5000, 6000, 7000). 

De besturing van de 'vogel 1 hoeft niet te 
worden gewijzigd. Ook de meeste variabelen 
kunnen met rust worden gelaten. De rand 
van het veld en de pijl naar de uitgang 
staan ook al in een subroutine; daar hoeft 
ook niets aan gedaan te worden. Wat 
overblijft is het veld zelf. 

Bekijk de subroutines van de andere 
velden (1 t/m 6) maar eens. Alleen de 
variabelen X en Y (deze geven de 
startpositie van de vogel) hoeven ingevuld 
te worden en met LINE en DRAW kunnen 
dan de velden worden opgebouwd. 

ENKELE BELANGRIJKE REGELNUMMERS 

Een nieuw speelveld dient te beginnen op 
regel 10000. De enige veranderingen in het 
programma komen in de volgende regels; 

REGEL 420: voor elk nieuw speelveld komt 
hier het regelnummer van het nieuwe 
speelveld, met aan het einde van de routine 
een RETURN. 

Voorbeeld: veld 7 begint op regel 10000 en 
veld 8 op regel 11000; dan wordt regel 420 
als volgt herschreven: 

420 GOSUB 2000, 3000, 4000, 5000, 6000, 

7000, 10000, 11000 

Regel 1550 bevat een eontrole op het laatste 
speelveld. Ook deze dient verandert te 
worden. Voor elk speelveld meer moet de 
variabele S in deze regel met 1 worden 
verhoogd. Voorbeeld: er komen 3 velden bij 
(7,8 en 9); dan wordt regel 1550 als volgt: 

1550 IF $#9 THEN S=1 

Om je eigen subroutine te testen kan een 
extra regel in het programma worden 
opgenomen en wel als volgt: 

417 S = 7 

Met een dergelijke -tijdelijke regel- kan 
direkt veld 7 gespeeld (en getest) worden. 

WAT NIET MAG 

Om het spel goed te laten verlopen mogen 
een paar dingen niet. De kleuren ZWART en 
WIT mogen NIET in het veld worden 
gebruikt. Op deze kleuren wordt namelijk 
getest of een botsing heeft plaatsgevonden 
( °#1 ) of dat de pijl bij de uitgang is 
bereikt ( = 15 ). 

Verder mag alles: huisjes, boompjes, 
beestjes; bedenk maar wat, Als het maar 
eem beetje moeilijk is en MOOll Ik heb 
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-door de beperkte tijd- niet altijd de 
mogelijkheid om erg veel tijd aan het 
grafische gedeelte van de programma’s te 
besteden. Dit programma is uitermate 
geschikt om uitgebreid- of veranderd te 
worden; zelfs een STUNTVOGEL II is 
zondermeer mogelijk. Doe dus mee! Dit is 
pas het begin en we hebben hele aardige 
software te verloten (geef bij je inzending 
gerust je voorkeur op): 

1: RETURN TO EDEN (Adventure) 

2: HUMPHREY + HUNCHBACK 
3: THE WRECK (arcade adventure) 

4: STAR AVENGERS 

Zoals je misschien wel weet uit de vorige 
(eerste) editie van de MSX-Gids geven we 
een vergoeding voor geplaatste 
inzendingen dus als er erg veel bruikbaar 
materiaal binnenkomt dan kunnen we altijd 
nog -i.p.v. software- de normale 
vergoeding geven per geplaatste pagina 
tekst of listing. 

Doe meet.... Alfred. 



Dit programma is een subroutine om 64 
tekens op een regel te krijgen en maakt 
gebruik van het grafische scherm 
SCREEN2. De cassette, waarop het 
programma staat, bevat een demo- 
programrna en de eigenlijke routine die 
bedoeld is om samen met een eigen 
programma gebruikt te worden. 

Het programma heeft een eigen instruktie 
voor het printen van de tekst en het 
instellen van de printpositie. Verder zijn er 
nog twee adressen waar de linkerkantlijn 
opgegeven kan worden. Deze laatste 
adressen zijn nogal duister. De handleiding 
zegt letterlijk: 

"De linkerkantlijn voor de te printen tekst 
is d.m.v. 2 POKE'S in te stellen: 

POKE &HF28D,x : POKE &HF291,x waarbij x 
een getal is dat de kantlijn bepaalt." 


En nu d e beide 1 ettertypen 
op £ £ n s c h e r m . 

En nu -ilt fceiJe Lettertypen op een schem. 


Wat er dan in x ingevuld moet worden is mij 
niet geheel duidelijk geworden. Het gehele 
programma plus de handleiding zijn, voor 
de beginner, zowiezo om confuus van te 
worden. Er staat een fout bij de FPRINT 
opdracht zodat, bij letterlijke overname uit 
de handleiding, het programma niet werkt* 
Het ergste is echter het laden van de 
eigenlijke routine. Volgens de handleiding 
moet dit gebeuren met BLOAD"CAS:",R. 
Wanneer we dit doen, dan vindt de 
computer al snel de file '6411'; deze wordt 
geladen en het systeem blijft dan 'hangen'. 
Na wat zoekwerk kwam ik tot de ontdekking 
dat er meerdere files met de naam ’6411' op 
de cassette staan. Wanneer eerst de demo 
wordt geladen en vervolgens de BLOAD 
opdracht wordt gegeven, dan werkt het 
allemaal wel; we laden dan de tweede ’6411' 
in het geheugen en deze werkt. Spoelen we 
cassette echter terug naar het begin en 
geven we weer deze BLOAD, dan wordt een 
andere file met dezelfde naam (6411) 
gevonden, welke echter -na het laden- een 
geheel stilvallen van het systeem 
veroorzaakt. Over de aanwezigheid van 
meerdere files staat echter niets in de 
handleiding. 

De, met deze routine, verkregen tekst 
(zeer fraai lettertje) is goed leesbaar op 
een monochroom monitor. Op een PAL-video 
monitor wordt het al wat lastiger en voor 
een normale TV is de tekst niet prettig voor 
de ogen. De letters zijn te smal en op een 
TV lijken sommige letters op elkaar. Voor 
gebruik op een kleurenscherm komt 
eigenlijk alleen een RGB-monitor (medium- 
of hi-res) in aanmerking. 

Het gebruik van deze routine is wel 
beperkt. I.v.ra. met copyrights kan deze 
(maar dat geldt ook voor andere routines) 
alleen voor eigen gebruik worden 
toegepast. Je kan er teksten voor demo's 
mee weergeven; ik denk hierbij b.v. aan 
winkels, etalages, beurzen enz. en de 
routine is uitermate geschikt voor een 
tekstverwerker. Maar, zoals al eerder 
gezegd, alleen voor eigen gebruik. Wil je 
een eigengemaakte tekstverwerker, waarin 
deze routine gebruikt wordt, opsturen naar 
b.v. dit blad voor publicatie dan kan dit 
programma -i.v.m. copyrights- niet 
gepubliceerd worden. Wil je deze 
tekstverwerker in de handel brengen, dan 
kan dat alleen met toestemming van 

FILOSOFT. 


40 


(C) Junior 99 








A1 met al maakt het geheel een slordige 
indruk. Een foutje in de handleiding, de 
aanwezigheid van meerdere files en tot slot 
een cassetteband van matige kwaliteit. De 
opname was hard genoeg (+ 2dB); maar 
door dropouts en faseverschil tussen de 
twee kanalen (iets scheve kop?) was het 
laden van de programme’s tamelijk lastig. 
Dit laatste geldt ook voor de cassette '3 in 
l 1 . Ook hier veel laadfouten zodat ik 
meermalen met foutmeidingen 

geconfronteerd werd. 

Het programme is van FILOSOFT 
De prijs is FI. 34,50 

Beeld **** 

Geluid 
Spelkwaliteit 
Foutafhandeling **** 
Gebruiksgemak * * * * 
Documentatie * 

Prijs **** 


***** 

ZEER GOED 

**** 

GOED 

*** 

REDELIJK 

** 

MATIG 

* 

SLECHT 


DRIE IN EEN 

Drie educatieve programma’s op 1 cassette, 

wat 3 drie recencies oplevert (de kwaliteit 
is n.l. erg verschillend) en uiteraard 3 
beoordelingen. 

AARDRIJKSKUNDE 

Dit eerste programma geeft -na inladen- 
een z.g. 'blinde kaart’ van Nederland die 
in gedeelten wordt getoond (de kaart 
T scrolt' over het scherm). 

De vragen betreffen 30 grote steden, 60 
middelgrote steden en 26 waterwegen. Er is 
een keuzemenu en er worden steeds 
blokken van 10 vragen gesteld die worden 
afgesloten met een eindbeoordeling. Is een 
vraag onjuist beantwoord, dan komt een 
foutmelding; gevolgd door het juiste 
antwoord. Een en ander is voorzien van 
geluid en het totaal ziet er voortreffelijk 
uit. De teksten zijn duidelijk en het geheel 
loopt soepel. Ik weet niet of een dergelijke 
methode tegenwoordig op de scholen nog 
gebruikt wordt, maar in het grijze verleden 
heb ik -ook met een blinde kaart- op deze 
manier mijn kennis verworven en daar ik op 
deze moderne versie de ene 10 na de andere 
haalde lijkt het mij dat deze methode zijn 
waarde heeft bewezen. 



Nogmaals: een schitterend stukje werk dat 
het, zowel thuis als op school, prima zal 
doen. 

TEKENEN 

Met dit tweede programma kunnen op 
eenvoudige wijze tekeningen gemaakt 
worden die ook nog naar cassette 
weggeschreven kunnen worden. Het 
programma is keurig verzorgd met een 
menu en tijdens het tekenen heeft de 
gebruiker nog de beschikking over een 
hulpmenu, dat opgevraagd kan worden. Er 
wordt gewerkt met een cursor (in de vorm 
van een kruisje) die over het scherm wordt 
bewogen met de (hoe kan het haast anders) 
cursortoetsen. De positie van deze cursor 
is constant zichtbaar als X- en Y positie 
onder aan het beeld. 

Heel aardig, ware het niet dat er een foutje 
in het programma zit. Het is de bedoeling 
dat de cursor van beeldpunt naar 
beeldpunt bewogen kan worden maar in de 
praktijk worden regelmatig sprongen van 2 
(soms zelfs 3) beeldpunten gemaakt. De 
verhouding ligt op ongeveer 3 staat tot 1. 

Na ca. 3 goede verplaatsingen volgt een 
dubbele, Een kleinigheidje dat misschien 
ook nog veroorzaakt kan zijn door de 
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matige tape; mischien een bitje verdwenen? 
De cursoruitlezing vindt plaats is een 
subroutine in machinetaal zodat het 
achterhalen van de fout mij iets te veel tijd 
zou gaan kosten. 

Wat ik wel een minpunt (met een grote MIN) 
vond was de mogelijkheid van het SAVEen 
van plaatjes. Volgens de handleiding 
kunnen de weggeschreven tekeningen 
alleen met dit programma weer ingelezen 
worden. Ik vind zondermeer dat het 
wegschrijven moet plaatsvinden onder een 
naam; waarbij dan het gehele -al dan niet 
afgemaakte- beeld op cassette wordt gezet 
om later b.v. verder af te maken of bij een 
ander programme in te laden. Nu kan 
siechts met 1 tekening gewerkt worden en 
het programme kan zo, zondermeer, niet 
gebruikt worden om b.v. een intro-piaatje 
voor andere programme’s te maken. Het 
plaatje wordt -met een machinetaalroutine- 
van videoRAM near normale RAM overgezet, 
waarna de normale RAM near cassette 
weggeschreven wordt. Voor gebruik in 
eigen programme's zal dus een routine 
gemaakt moeten worden die de 'gewone' 
RAM weer naar videoRAM overzet. 

REKENEN 11 

Opteilen, aftrekken, vermenigvuldigen en 
delen. Dit alles kan met dit programme, dat 
weer voorafgegaan wordt door een menu. Er 
zijn verse hillende reken niveau f s mogelijk. 
De handleiding spreekt van: klas 1-2, klas 
3-4 en klas 5-6. De sommen worden door 
RANDOM'S gemaakt en dat is nogal 
ongelukkig geprogrammeerd. Zo krijg je bij 
de keuze 'klas 5-6' rustig opgaven als; 1 + 
2, 2 * 4 enz. enz. Het is mij zelfs een keer 
gebeurd, dat ik 10 opgaven op klas 1- 
niveau kreeg. Verder ziet alles er goed uit 
en ontbreken ook hier de muziekjes niet. 

Beoor deling: 

Het rekenprogramma is matig, het 
tekenprogramma is goed en het 
aardrijkskundeprogramma is zondermeer 
zeer goed! 

Voor beeld en geluid krijgen alle drie een 
'goed'. 

Voor gebruiksgemak krijgt 'TEKENEN* een 
'matig', de andere twee krijgen een 'goed 1 . 
De documentatie is redelijk tot goed en de 
prijs is zondermeer zeer goed. 

De cassette is van F1LOSOFT en kost FI. 
34,50. Voor deze prijs krijg je wel 3 
programme's waarvan alleen al 
AARDRIJKSKUNDE deze prijs waard is* 

Voor FI. 35,50 zou FILOSOFT ook nog een 
goede kwaliteit cassette kunnen gebruiken. 
Wat mij betreft mag dat wel. 
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TASW0RD M5X. De beste tekstverwerker voor MSX een voiiedia Nederlandsta- 
lige versie* Met 64 tokens per regal, dus u zmt meteen wat er op papier komt Met 
automatische woordomsrag, rechts uitlijnen, een zoek en vervangfunkue en tai van 
andere opnas, die op grotere computers standaard 

Kwaliteit wonder weergal disk f 11 5. - cass, f 95 - 

BRIDGE. Een epliksplinternieuw programma, geschreven door een bridgeleraar en 

^nH^u^^ On0a Va et i pr ° 9ramnia speeit op hoog nivo ' (volledig Neder* 

noK iS ® tutor voor beginners cass f 59 — 

t One Bdukatieve programmed op een cassette; Aardnjkskunde {met 
Nederland). Rekenen en Tekenen, cbbs f 34 50 

,. Een sedeus edukatief programma. Ket behandelt o.a. 
persoonsvorm werkwoordelijk en naamwoordelijle gaiegd#, bijwoordelijke en bii- 

,f10, NsteHing, onderwerp, lijdend en meewerkend voorwerp De 
theorie en 1 20 oefeningen, f 

VIER EDUKATIEVE MSX - CASSETTES waarm het speleiement een belangnike rot 
9 p,ell ® n ® n 9ftr«kken’ met behulp van aen verffc.ngn. ’Cijferend vermemg- 
vuldigen aan de lopende band. Procanten in een doolhof en Geld' als bestuurder 

=rhii!»nw« ,ege " de tC 5 01 *'- * tle Pfogramma’ werken njkelijk mat kleur en kennen ver- 
irff. i ‘ ZOdat kind0fen van d 'verse leeftijden er plezier aan kunnen bele- 
van. Kerstuk. cass.f 34,50 

Meer informatie ovet onie MSX-software steal in de gratis 
folder* Vraag m asm (o.v.v. 'MC') via een briefkaartie naar: 

1 _ 3 l 53f 9701 BJ Gf ? n,n 0 en * of telefonisch: 050* 
J7 746. Filosoft produkten zijn te koop in de goede compu¬ 
ter reek. maar ook rechtstreeks te bestoften; door storting van 

bet badreg + f 3,50 verz.k. op giro 20792 t.n.v Filosoft, 
Groningen* 

app 


DRILLER TANKS 

Dit is een doolhofspel. Het is de bedoeling 
met een tank, uitgerust met een ijskanon, 
tegenstanders te bevriezen en ze 
vervolgens stuk te rijden. Daar zou nog 
best wat van te maken zijn, alleen heeft 
KUMA hiervoor de moeite niet genomen. De 
besturing is erg lastig, er vindt al 'sprite 
collision' plaats voordat de sprites elkaar 
raken, beeld en geluid zijn onder de maat 

en het is dan ook zonde van de ruimte in dit 
blad om er meer aandacht aan te besteden. 
Geen plaatje of waarderingsoverzicht. 
Gewoon SLECHT. 

Het spel is van KUMA en wordt geleverd op 
cassette. Prijs FI.39,00 


DOG FIGHTER 

Dit heeft niets met honden te maken; het 
gaat hier om een luchtgevecht met 
vliegtuigjes. Het lijkt erop dat hier 
dezelfde programmeur bezig is geweest die 
'Driller tanks' heeft geschreven, want het 
spel zit net zo klungelig in elkaar. Dat is 
jammer, want de ideeen zijn best aardig, 
maar de uitvoering laat zeer veel te wensen 
over. Soms doen zich onmogelijke situaties 
voor die het spelen erg frustrerend maken. 
Ook hier maar weinig woorden aan 
vuilmaken: SLECHT. 

Een spel op cassette van KUMA. Prijs FI. 
39,00 


GALACTICA 

Je bent met je ruimteschip verdwaald en je 
moet proberen je moederschip te 

bereiken. Hiervoor moet je door 10 zwermen 
'aliens' heen zien te komen; al schietend en 
manoevrerend. Korn je bij de laatste ronde 
echter in botsing met het moederschip dan 
verschijnt een elfde -nog gevaarlijker- 
zwerm aliens. De besturing van het 
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ruimteschip kan zowel met de cursortoetsen 
als met de joystick en deze besturing loopt 
nu eens een keer lekker soepel! De 
tegenstanders hebben verschillende 
eigenschappen (sommigen schieten terug) 
en je krijgt dan ook voor het raken van de 
verschillende aliens verschillende scores. 
De aliens zijn ook nog herkenbaar aan een 
eigen 'tune'. 

Tot nu toe ziet alles er goed uit, maar toch 
komen weer de KUMA-frustraties om de 
hoek kijken. Het schietmechanisme laat echt 
wel wat te wensen over. Er kan maar 1 keer 
v/orden geschoten. Pas als een monster is 
geraakt of als de kogel (of wat het is) uit 

het beeld is verdwenen, kan een tweede 
schot worden gelost. Er komen steeds meer 
-en gevaarlijker- tegenstanders en er is op 
een gegeven moment niet meer tegenop te 
schieten. Dat is pas echt frustrerend en 
jammer, want dat is eigenlijk het enige 
echte minpunt aan dit spel. De rest zit goed 
in elkaar en de presentatie is leuk. KUMA, 
doe hier wat aan! 

Een cassette van KUMA. Prijs FI. 39,00 

Beeld **** 

Geluid **** 
Spelkwaliteit ** 
Foutafhandeling 
Gebruiksgemak 
Documentatie * * * 

Prijs *** 

***** ZEER GOED 
**** GOED 
*** REDELIJK 

00 MATIG 

0 SLECHT 


HYPER VIPER 

Er zijn heel wat s pellet jes die als 
hoofdpersonen slangen gebruiken (SNAKE 

BYTE, TAPE WORM, CYCLOD, noem ze maar 
op) en dit spel is, ondanks enkele 
minpuntjes, een van de betere. 

Bij de meeste spelletjes ben je zelf de slang 
en wordt je lichaam alsmaar langer; bij dit 
spel moet je echter de slangen opeten. Dit 
is extra moeilijk, want dat kan alleen als je 
de slang van achteren aanvalt. Raak je de 
slang in het midden, dan worden het twee 
slangen en wanneer je de voorkant 
aanraakt heeft hij jou te pakken. Er zijn 
verschillende speelvelden en nog -hier en 
daar- enkele andere tegenstanders. Ook 
zijn er 3 mogelijke snelheden. 

Bij dit spel valt de beoordeling nu eens 
geheel anders uit. Beeld, geluid en 
besturing zijn matig; de spelkwaliteit 
scoort echter erg hoog. Dit soort spellen 


blijft altijd weer boeien en zal regelmatig 
weer tevoorschijn worden gehaald. 

Het spel is van KUMA en leverbaar op 
cassette. Prijs Fl. 39,00 


Beeld 

Geluid 

Spelkwaliteit 

Foutafhandeling 

Gebruiksgemak 

Documentatie 

Prijs 

***** ZEER GOED 

**** GOED 
*** REDELI JK 
** MATIG 

* SLECHT 



* * * 

* * * 

* * * * 

* * * 

* * * * 



STAR AVENGERS 

We blijven bij de software van Kuma en de 
kwaliteit wordt steeds beter. 

Dit spel is een combinatie van allerlei 
sc hiet spelletjes en wat het eerste op valt is 
de schitterende kwaliteit van het 
openingsbeeld. Er verschijnt een 
keuzemenu voor joystick of keyboard, 
vervolgens een keuze uit 10 verschillende 
speelvelden en tot slot een keuze uit 5 
speelniveau’s. A1 deze beelden zijn 
grafisch samengesteld, waarbij van een 
eigen letterset gebruik wordt gemaakt. Er 
is ook nog een overzicht van alle te behalen 
scores en er is een f Avenger Hall Of Fame’ 
met een overzicht van de 8 hoogste scores. 
Je moet echter wel minimaal 1000 punten 
behalen om de eerste keer in deze tabel te 
komen. De beelden bij dit spel zijn 
uitstekend en de geluiden zijn ook goed. Er 
is een mogelijkheid om het beeld stil te 
zetten en het geluid kan aan- en uit gezet 
worden. Het spelniveau ligt echter wel op 
dat van de gevorderde en doorgewinterde 
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arcade-freak. Level 1 is zo ongeveer het 
niveau waar andere spellen eindigen. 
Vereist zijn dan ook een goede joystick en 
een zeer soepele 'schietduim' want er wordt 
wel wat aktie van de speler gevraagd. Ik 
heb zelf al aardig wat van dit soort 
spelletjes gespeeld, maar hiermee had ik 
toch behoorlijk veel moeite om de eerste 
1000 puntjes te verzamelen. Het beeld 
scrolt -meteen al in de eerste ronde- met 
een waanzinnige snelheid en je komt haast 
duimen tekort om alles weg te kunnen 
schieten. Persoonlijk had ik level 1 wel wat 
rustiger wUlen hebben; vooral omdat bij het 
begin het level kan worden gekozen, zodat 
niet eerst de langzamere rondes doorlopen 
hoeven te worden. 

Dit is dan ook het enige kleine minpuntje 
wat ik bij dit spel kan vinden. Een topper 
voor de liefhebber van veel schietwerk en 
zelfs voor de fanaat nog moeilijk genoeg 
(level 5 grenst aan het waanzinnige). De 
speelvelden verschillen flink van elkaar 
zodat de spellen niet teveel op elkaar lijken 
en er is een behoorlijk assortiment 
tegenstanders; verveling zal niet gauw 
optreden. 


De cassette is van KUMA en de prijs is FI. 
37,50 



Beeld 

Geluid **** 
Spelkwaliteit **** 
Foutafhandeling 
Gebruiksgemak 
Documentatie *** 

Prijs ****■ 

***** ZEER GOED 

**** GOED 
*** REDELIJK 
** MATIG 

* SLECHT 



MASTERS OF THE LAMP 


Het doosje -en de tekst hierop- doen 
vermoeden dat het om een adventure gaat, 
maar nee: het is anders, origineel en valt 
niet zo makkelijk in een hokje te plaatsen. 
Gelukkig maar dat dit soort spellen er ook 
nog is; anders zou deze rubriek snel gaan 
vervelen. 

Er zijn 3 spellen. Twee hiervan; Seven 
1 rials en Magic Carpet, zijn oefenrondes 
om je te bekwamen in de tests die in het 
eigenlijke spel -Throne Quest- gedaan 
moeten worden. Het spel zelf begint met een 
tocht op een vliegend tapijt en dit is het 
'behendigheids* gedeelte van het 
avontuur. De besturing gaat zowel met de 
cursortoetsen als met de joystick (de 
joystick is hier zondermeer aan te bevelen) 
en er is keuze uit 21 tunnels waardoor 
gevlogen kan worden. Doe je dit goed, dan 
komt de geluidstest. Er staan 8 gongs, die 
elk een andere toon produceren. Er 
verschijnt een geest die twee tonen laat 
horen, die je zelf vervolgens op de juiste 
gong ook moet laten klinken, Dit moet snel 
gebeuren, anders wordt je door de 
muzieknoot aangevallen en verpletterd. De 
gongs zijn gekleurd en de noten ook; dat is 
dus een extra hulpmiddel. In de volgende 
twee rondes gaat het echter alleen met de 
tonen of alleen met de noten. Hier is de 
keuze dus behoorlijk moeilijker. Na deze 
drie rondes kan via een andere tunnel naar 
een volgend spel worden gevlogen. Het 

einddoel is om de 21 scherven van de lamp 
te verzamelen. 

Magic Carpet is alleen een onderdeel om het 
vliegen in de tunnels te oefenen. Seven 
Trials is echter een kompleet spel, maar 
aanmerkelijk eenvoudiger dan 'Throne 
Quest 1 , In deze makkelijke (nou ja, 
makkelijk? versie blijven zowel kleur als 
geluid in elke ronde aanwezig en zijn de 
tunnels niet zo erg moeilijk. Met deze 
versie hoeven slechts 7 stukken lamp te 
worden verzameld voordat het eindspel in 
beeld verschijnt. Zover ben ik echter nog 
niet gekomen, dus ik weet niet hoe het spel 
I . eindigt. 
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A1 met al erg origineel en leuk maar.... 
alleen leuk als je een kleurenmonitor of KTV 
hebt. In z/w zijn de verschillende tinten 
niet uit elkaar te houden en ben je alleen 
afhankelijk van de geluiden. In de 
moeilijkste ronden, waarin gedeelten zijn 
met alleen kleuren, is dit spel alleen op een 
kleuren- TV of monitor te spelen. 


Het spel staat op cassette en is van 
ACT I VIS ON. Prijs Fl.49,00 



Beeld **** 
Geluid **** 
Spelkwaliteit **** 
Foutafhandeling 
Gebruiksgemak 
Documentatie **** 

Prijs * *#* 

***** ZEER GQED 
**** GOEO 
*** REDELIJK 
** MATIG 

* SLECHT 


ADVENTURES 



HOLDFAST 

EEN TEKSTADVENTURE?? 

Holdfast is geen echt adventure maar valt 
elders ook niet onder te verdelen, dus 
staat dit spel toch maar in deze rubriek. 
Holdfast heeft geen grafische presentatie, 
dus -als het een adventure is- dan is het 
een tekstadvent ure. Sominige spelers 
geven de voorkeur aan adventures met 
beelden, maar de echte fanaat speelt liever 
de tekstadventures, daar de eigen fantasie 
dan mee kan spelen. In 'Holdfast 1 is de 
speler de burgemeester van een stadje en 
de opdracht is om in deze plaats een school 
en een kliniek van de grond te krijgen. De 
regering zegt in eerste instantie ’nee’ 
zodat je, met allerlei acties, de bevolking 
achter je moet krijgen om alsnog de bouw 
voor elkaar te krijgen. Al deze acties 
moeten geweldloos zijn. Je kan verder ook 
nog hulp van buitenaf inroepen. Zo is er de 
kerk, de vakbond, de E.E.G., de pers enz. 
Het klinkt -en is ook- best aardig, ware het 
niet, dat het spel veel te gemakkelijk is. Na 
een tijdje puzzelen heb je al gauw door 
welke acties een averechts effect hebben en 
een speler met een beetje ervaring heeft dit 
spel binnen een avond uitgespeeld. Nu is 
dat geen punt als zo'n spel b.v. in dit blad 
zou staan, want dan is de prijs te 
verwaarlozen; maar het spel kost FI. 24,50 
en dat vind ik toch wel gortig voor een 
klein avondje spelen. Wel aardig dus, maar 
veel te duur. 

De cassette is van KUMA. 

Spelkwaltteft 2 Prijs 1 
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THE WRECK 


EEN ECHT ADVENTURE 
MAAR WEER EEN VRAAGTEKEN. 

The Wreck valt bij aanschaf meteen op door 
de uitvoering: een fraaie doos, een echt 
gedrukt boekje, een geplastificeerde kaart 
en een speciaal potlood (voor deze kaart) 
worden alleraaal bijgeleverd. Wat ook opvalt 
is de prijs: een cartridge prijs voor een 
cassette, maar dit wordt goedgemaakt door 
de bovengenoemde -echt keurig 
verzorgde- accessoires. 

In het boekje staat de hele 
voorgeschiedenis van dit adventure te 
lezen. Het komt er in het kort op neer, dat 
er ergens een wrak ligt met een flinke 
lading goud aan boord. Je krijgt de kans 
deze lading op te duiken en in het schip 
zijn aantekeningen van de kapitein te 
vinden, die je helpen de weg naar het goud 
te vinden. Het schip heeft drie deks en het 
goud ligt in brandkasten. 

Bij het begin van het spel krijg je acht 
Hessen zuurstof. Je kan steeds slechts 1 
fles meenemen, zodat je onderweg 
regelmatig terug moet naar de in gang om 
een nieuwe fles op te halen. Dit betekent 
meteen al dat je een kaart moet bijhouden, 
Ook de bijgeleverde kaart -met het speciale 
potlood- dient om de afgelegde weg aan te 
geven. Het is een echt 'doolhofspel'. De 
’clues’ van de kapitein staan op de muren 
geschreven, maar worden pas zichtbaar als 
je recht voor deze muren staat; op afstand 
zijn deze ’clues’ niet te zien. Heb je een 
'clue', dan moet je deze volgens een andere 
kaart -ook bijgeleverd- als een soort 
kruiswoordpuzzel opiossen (dus b.v. 4 
horizontaal - 8 vertikaal). De -met de 
’clues’ gevormde- gevonden woorden zijn 
de wachtwoorden waarmee een kluis kan 
worden geopend. 

Het wordt echter nog veel moeilijker. Op je 
weg vind je tegenstanders (een soort 
inktvissen) die je moet ontwijken of 
neerschieten. Tevens schieten er allerlei 
kleine onderwaterdiertjes door de gangen 
rond. Ook deze moet je neersc 
hieten, want aan de hand van deze beestjes 
en je aantekeningen op de grote kaart kan 
je je weg terugvinden. Dit is niet zo 
noodzakelijk op het eerste dek: hier zijn 
alle gangen normaal maar op de lagere 
dekken veranderen de gangen tijdens het 
spel. M.a.w. de heenweg hoeft -in 
omgekeerde volgorde- niet altijd tot de 
uitgang te leiden. Op deze 2 levels moet je 
je weg dus wel degelijk met de visjes e.d. 
markeren. Hier zit dus het versehil met een 
’normaal 1 adventure; veel schietwerk en 
nog lastig ook. En doordat het spel tijdens 
het spelen niet 'geSAVED* kan worden 



dient het gehele spel in een keer gespeeld 
te worden of, met behulp van zelfgemaakte 
kaarten, in meerdere beurten. 

Al met al een heel lastig adventure met veel 
puzzeiwerk en -afwijkend van andere 
adventures- ook nog behoorlijk wat 
schietwerk. Wanneer je dit arcade-aspect 
van dit spel geen bezwaar vindt, is ’The 
Wreck 1 zeker de moeite waard en krijg je 
wel waar voor je dure geld. 


’The Wreck' is van Electric Software en 
wordt geleverd op cassette. De prijs ligt 
rond de 70 Gulden. 



Beeld *** 
Geluid *** 
Spelkwaliteit ***** 
Foutafhandeling 
Gebruiksgemak 
Documentatie ***** 

Prijs **** 

***** ZEER GOED 

**★* GQED 
+ ** REDELIJK 
+ * MAT1G 

* SLECHT 
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BOEKEN 


NIEUW in de BOEKENKAST 
door Sylvia de Bruin 

Hoi, daar ben ik weer. De vorige keen heb 
ik beloofd twee Engelse boeken te 
bespreken en het zijn er drie geworden. 

Eerst even wat reacties op de 
boekbespreking in MSX Gids nr 1. Er is mij 
verweten niet deskundig te zijn (?). En 
over de grapjes, die ik tussen de serieuze 
onderwerpen door lanceer, waren sommige 
lezers ook niet zo te spreken! Over mijn 
deskundigheid kan ik kort zijn: computers 
werken in bijna alle gevallen in BASIC. Nu 
is BASIC een soort wiskundig "Engels" en 
zowel in wiskunde als engels ben ik altijd al 
goed geweest. En ik hoef niet elke dag van 
8.00 tot 22.00 uur achter de MSX te zitten 
om het in de vingers te hebben. Tenslotte 
zijn mannelijke verloskundigen ook 
deskundig, al hebben zij nog nooit een kind 
gebaard. 

En v/at die grapjes betreft, in "Zeg 'ns 
Aaa" hoorde ik laatst de opmerking: 
"Mensen met een grote neus, hebben ook 
een groot gevoel voor humor!" 

De sterretjes: geen ster betekent dat het 
boek volkomen waardeloos is; 1 ster 
betekent dat het een uiterst matig product 
is; 2, 3, 4, 5 zijn gewoon oplopend in 
waarde, 5 sterren is heel erg goed! De 
vorige keer bij de bespreking van 
ondermeer 't MSX Zakboekje heb ik alleen 
maar slechte dingen opgenoemd en toch vijf 
sterren gegeven. Welnu, het boek is die 
vijf sterren waard en is gezien de 
prijs-/in format ie verhouding gewoon erg 
goed, En wat al die minder goede puntjes 
aangaat: ik heb nog niet eens alle fouten 
gevonden. Ik heb mij de kritiek echter ter 
harte genomen en neem mij voor iets liever 
te zijn in het vervolg. 


MSX Truuks en Tips Deel 1, 

door A. C. J. Groeneveld, 
Uitgeverij Stark - Texel, 
101 bladzijden, f 24,90 
waardering *** 


Volgens de eatalogus heeft het boek 112 
pagina's. Er wordt begonnen op pagina 7 
en men eindigt al op pagina 107, het 
schutblad wordt meegeteld, het titelblad, 
de index en de advertenties. Dat moest mij 
even van het hart. Nu het boek. 

Dit boek staat vol met nuttige "hints" en 



routines. Er zitten er tussen, waar ik van 
heb staan te kijken. Ik hoop alleen dat deze 
trucjes ook op andere MSX-computers 
werken, want er wordt nogal lustig op los 
gePOKEt en geUSRd. En ik ben er niet 
zeker van of in elke computer dit soort 
dingen op dezelfde plaats zit! Dit boek moet 
in ieders boekenkast staan naast het MSX 
Zakboekje. En omdat het deel 1 is, dient U 
nog wat ruimte te reserveren voor deel 2! 



Het MSX Leerboek "Basic" Deel 1, 


door VVessel Akkermans / Piet den Heijer, 
Uitgeverij Stark - Texel, 

217 bladzijden, f 24,50 
waardering **** 


Vier sterren voor dit boek: gunstige prijs, 
keurig uitgevoerd. Bij dit boek hoort ook 
een cahier (64 bladzijden) met opdrachten. 
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Als dit boek goed bestudeerd wordt en de 
opdrachten worden gemaakt met de 
computer als mentor, dan kunt U serieus 
programmeren op de MSX computer. Achter 
in het boek staat een meer dan 15 
bladzijden tellend AGENDA-programma met 
duidelijke handleiding. En in gedeelten een 
adressenbestand. Als U het boek 
bestudeerd heeft, hebben deze 
programma's dan ook voor U geen geheimen 
meer. 

Omdat een boek voor de hele BASIC van de 
MSX zwaar, dik en duur zou worden, wordt 
in deel 2 aandacht besteed aan de 
grafische- en geluids mogelijkheden. Deel 3 
houdt zich bezig met "schijveneenheden”, 
dat is dus de DISK-drive, MSX-DOS, en 
MSX-DISK BASIC. 

Bij elk deel hoort weer een nieuw cahier met 
opdrachten, dat telkens weer afzonderlijk 
gekocht moet worden (prijs ongeveer f 
10,-). Compleet kost deze leergang dus zo 
rond de f 100,-, wat in verhouding met 
opleidings instituten niet duur is. Hierbij 
moet mij wel van het hart dat deze studie 
zonder leraar, all een van nut kan zijn, als 
de wil om te leren duidelijk aanwezig is. Het 
is dus geen cadeau-idee! 



Chip Special MSX-Computer, 


door de lezers van Chip (Duitsland), 
Vogel Verlag, 

110 bladzijden, DM 28,— (hfl 38,96 
incl.), 

waardering *** 


In deze tijdschrift-achtige uitgave staan 
zeven advertenties en ongeveer twintig 
programma f s. Er is nogal wat verschil 


tussen de programma's onderling, 
sommigen zijn erg eenvoudig en anderen 
zijn uitermate ingenieus. Het valt wel te 
betreuren, dat niet alles even bruikbaar is 
voor de gemiddelde gebruiker. De 
MS X-DISK BASIC wordt duchtig 
gehanteerd. In alle listings zijn de spaties 
vervangen door een paar accolades met 
daartussen de boodschap hoe vaak dat 
teken voorkomt. Vreemd is het om te zien, 
dat dit ook gedaan is met sterretjes en 
andere symbolen, die in REM-regels 
voorkomen, Kennelijk is het boek weer eens 
bewerkt door iemand die weinig van 
computers weet. Misschien is het wel door 
een computer bewerkt, wie weet? 

Een ietsie pietsie hinderlijk is het dat in 
geen van de listings de Duitse schrijfwijze 
is aangehouden, d.w.z. puntjes op de "a" 
en "o" in plaats van "ae" en "oe" en dat 
soort dingen. Zo heel erg is dat niet, 
behalve dat het vreemd oogt. De MSX 

computer heeft nu eindelijk alle 

West-Europese lettertypes aan boord en nu 
worden zij niet gebruikt. Ik weet wel dat 
het moeilijk is, maar in de inleidingen en 
gebruiksaanwijzingen worden wel de 

puntjes op de "i" gezet. 

Waarschijnlijk is het voor de MSX 

gebruiker wel te doen deze programma's te 
vertalen of aan te passen, maar iemand die 
ze kan aan passen is ook in staat ze helemaal 
opnieuw te schrijven. En dat is net zo leuk. 


40' Grafische Programma's in MSX BASIC 

door Marcel Sutter t vert. Nok van Veen) 
uitgeverij Academic Service, 

125 bladzijden, prijs f 29,50 
waardering *** 


Ik ben er nog niet zo zeker van of de titel 
van dit boek wel juist is gekozen. Herr 
Sutter had de programma's eigenlijk 
geschreven in STANDAARD Microsoft 
BASIC. Door de Nederlandse uitgeverij zijn 
er verschillende versies op de markt 
gebracht, bijvoorbeeld ook voor de IBM PC. 

Voor de MSX computer is het bewerkt en 
uitgebreid. Dat kon ook niet anders: de 
MSX kan meer, nou ja, andere dingen! Zo 
beschikt de IBM PC maar over drie kleuren: 
zwart, groen (wit) en donkergroen 
(grijs?), tenzij uitgebeid met kleuren kaart. 

In het boek wordt uitgelegd hoe U zelf de 
meest fantastische figuren op het scherm 
zichtbaar kan maken. En ook nog hoe deze 
wiskundig in elkaar zitten. Nu was op 
school wiskunde altijd mijn favoriete vak. 
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Ik weet nog een anecdote, in die tijd maakte 
ik nooit mijn huiswerk voor wiskunde. A) 
omdat ik het (in dit geval) niet nodig had; 
ik kon het zo wel en B) als de leraar iets 
overhoorde rekende ik het uit, terwijl ik 
het antwoord gaf. Er was echter iets dat ik 
nog steeds niet kan, toen ook al niet; rijtjes 
uit mijn hoofd leren. Ik had dan ook altijd 
een blaadje met rijtjes op mijn tafel liggen. 
De leraar wist dat eigenlijk wel. Vraagt op 
een dag de leraar demonstratief "Sylvia wat 
is het quadraat van 15 ?", toen floepte ik 
eruit "mijn lijstje gaat maar tot veertien !" 
Inmiddels ben ik er wel achter gekomen dat 
het quadraat van 15 225 is. 

Terzake weer; dit boek kreeg maar drie 
sterretjes, ondanks het'feit dat het subliem 
is uitgevoerd: de listings zijn met een 
"letter-quality" (persoonlijke-brief 

kwaliteit) printer op papier gezet, de 
grafieken met de mini plotter van de Sharp 
1500, verder is het goed gebonden en mooi 
gezet, ook is het goed vertaald! 

Er mankeren maar twee dingen aan; ten 
eerste is dit boek alleen geschikt voor 
mensen, die iets van wiskunde weten. 
Bijvoorbeeld leraren die op school met 
behulp van de MSX computer wiskundige 
functies duidelijk moeten maken aan 
leerlingen. Voor mensen die al wat langer 
van school af zijn en nog denken aan 
"algebra" kost het wat meer tijd. Het boek 
doet daar nog al luchtig over; "Diegenen 
die de veelal wiskundige uitleg bij de 
programma’s teveel van het goede vinden, 
zullen alleen al door het intikken en het 
draaien van de programma’s verrukt zijn 
van het resultant." Okee, daar is niets van 
gelogen, maar de wiskundige uitleg is nu 
net de kracht van het boek en als deze mag 
worden overgeslagen, dan werpt men 
paarlen voor de zwijnen! 

Het tweede minpuntje (een kleintje maar) is 
dat het boek nogal bombastisch ’40 
grafische programma’s in MSX BASIC 1 
heet. Ook hiervan is weer niets gelogen, 
maar grafisch kan de MSX meer dan er uit 
dit boek valt op te maken. 

Daar staat dan weer tegenover dat hetgeen 
wel gebruikt wordt verbluffende dingen op 
het scherm tovert! 

Dit boek had zeker vier sterren gekregen 
als wiskunde wat toegankelijker was 
geweest voor de gemiddelde Nederlander. 


MSX Games Book, 

door Andrew Lacey, 

Melbourne House (Computercollectief), 

224 bladzijden, f 36,— 
waardering **** 



Dit boek is geschreven door iemand die de 
MSX computer tot in de puntjes kent.Niet 
alleen heeft deze Andrew Lacey een 
speciale machinetaal routine geschreven om 
de cursor toetsen af te "scannen", maar 
ook een routine om het beeld horizontaal te 
laten scrollen. 

De listings die zijn afgedrukt in het boek 
zijn onderverdeeld in stukken en elk stuk 
heeft een doel. Hierdoor is het mogelijk op 
eenvoudige wijze dingen toe te voegen, 
maar ook wordt het eventuele foutzoeken 
vergemakkelijkt. Voor het foutzoeken is 
een programma afgedrukt; ChexSum. In elk 
zichzelf respecterend MSX 

computertijdschrift heeft al eens zoiets 
gestaan, alleen is het jammer dat niet al 
deze programma’s onderling uitwisselbaar 
zijn en dezelfde uitkomsten geven! 
Misschien een kleine hint voor 
standaardisering. 


De spelletjes zijn goed, 26 in totaal; het 
boek geeft waar voor zijn geld. Je bent wel 
een tijd bezig, maar ik heb wel eens 
duurgekochte slechtere spelletjes gezien. 
Natuurlijk is het geen "Activision-quality", 
zeker is echter dat er zorg aan is besteed. 
Zo zijn bijvoorbeeld in de listings de 
spaties -de stukjes ’niets 1 tussen de 
woorden om het lezen te vergemakkelijken- 
vervangen door driehoekjes. Verder staan 
de regelnummers niet door de listings 
heen, maar netjes -zoals het hoort- in een 
eigen colom. 

Waar ik persoonlijk de kriebels van krijg is 
de grote hoeveelheid DATA. Dit zal wel 
onvermijdelijk zijn, aan gezien een 
willekeurig programma maar drie, vier 
pagina’s beslaat! Ik weet nog niet of de 
kracht en compact heid van deze 
programma’s komt uit de mouw van de 
programmeur / schrijver van dit boek of 
dat de makers van de MSX computer met 
deze veren kunnen pronken. 
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The Complete MSX Programmers Guide, 

door Toshiyuki Sato, 

Paul Mapstone en Isabella Muriel, 
Melbourne House (Computercolleetief), 
568 bladzijden, f 69,— 
waardering ***** 


Het boek is erg dik: meer dan 568 
bladzijden worden omklemd door een 
groene, hardplastic ringband. Deze band 
kan doorgaans niet los en als dat wel het 
geval is, is het niet de bedoeling! Ik vraag 
mij af of op den duur de vellen niet 
uitscheuren en wat dan? Bij aankoop zit het 
verpakt in een huls (?) met als opvulling 
stukken golfkarton. Misschien moet men, 
als de vellen uitgescheurd zijn, deze terug 
in de verpakking stoppen. Maar voor alle 
veertien gaatjes zover zijn, moet er heel 
wat in gelezen zijn. 

Het boek is eigenlijk de bijbel van de MSX. 
Voor zover ik het kan beoordelen, staat 
alles er in. Jammer dat er niet alvast een 
hoofdstuk is gewijd aan de 
DISK-commando f s. Misschien een ideetje 
voor "Het Nieuwe Testament"? Het is 
tenslotte aannemelijk, dat -na verloop van 
tijd- toch een groot aantal MSX-gebruikers 
een DISK-drive zal kopen, d.w.z. zodra 
deze betaalbaar worden. 

Alle keywords zijn alfabetisch opgenomen, 
elk beginnend op een eigen pagina. Hoewel 
het boek in het Engels geschreven is - en 
dus ook in het Engels gelezen moet worden 
- is het duidelijk en begrijpelijk. In een 
stukje tekst onder elk keyword wordt 
uitgelegd wat de functie, het commando of 
het statement doen, vervolgens hoe deze 
juist moeten worden gebruikt en een 
voorbeeld. Verder wordt niet vergeten om 


ook de mogelijke fouten, die door de 
programmeur gemaakt kunnen gaan 
worden, even aan te tippen. 

Voor hen die een assembler hebben is dit 
boek helemaal geweldig: achterin vindt men 
een opsomming van geheugenlocaties 

waarin belangrijke routines voorkomen en 
verder zeer veel in forma tie, welke nuttig 
kan zijn, als er in machinetaal gewerkt gaat 
worden. Er zijn mensen die echt helemaal 
willen weten hoe je het uiterste uit de 
video- en soundchip kunt halen; in dit 
boek staat beschreven hoe deze werken en 
welke registers zij hebben. Door de 
uitmuntende BASIC is eigenlijk bijna alles 
wel te doen, maar in machinetaal schijnt het 
sneller te kunnen. Nu heb ik daar zelf geen 
"cheese" van gegeten, dus ik heb het van 
horen zeggen. 

In dit boek heb ik slechts enkele fouten 
kunnen ontdekken en ik veronderstel dat 
dit vertaalfoutjes zijn uit het Japans. Ik 
hoop dan ook dat dit boek beschikbaar 
komt voor die mensen, die geen Engels 
lezen. In dezelfde stevige uitvoering en net 
zo goed verzorgd. 



Getting More From MSX, 


door Brian Boy de-Shaw, 

Sigma Press (Computercolleetief), 
156 bladzijden, f 39,— 
waardering (geen ster)! 


Brian is waarschijnlijk een goed vader van 
twee gezonde doehters en een oppassend 
echtgenoot. Het boek is duidelijk 
geschreven, alle programmeer voorbeelden 
(stukjes listing) zijn met een mooie vette 
letter gezet. Van het boek is 98 % 

bruikbaar, als je weet waar de fouten 
zitten. 
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En het ergste van die fouten is dat ze niet 
eens de schuld zijn van de schrijver! Neen, 
toen MSX werd vastgesteld als norm, was er 
een fabrikant (Spectravideo) die de rest 
even een slag voor wilde zijn en maar vast 
een computer (de zogenaamde pre-MSX) op 
de markt bracht. Dit heeft SV daarna nog 
heel lang opgebroken: de gebruikers van 
SV zitten opgescheept met een machine die 
MEER kan en SNELLER is, maar niet 
compatibel is met andere computers en zelfs 
niet compatibel met een ander type van 
hetzelfde merk! 

En Brian Boy de-Shaw heeft van een 
plaatselijke computershop nu net de 
verkeerde computer meegekregen! 
Waarschijnlijk heeft men hem verteld dat 
het "MSX" was of er is in het instructieboek 
gewag gemaakt van de MSX standaard. En 
dat klopte niet; er is een beetje gejokt! 
Overal waar in het boek wordt gesproken 
over SCREEN 1 moet dit worden gezien als 
SCREEN 2, CLICK ON/OFF is in feite 
SCREEN x,x, 1 of 0 en SOUND ON/OFF, PUT 
en GET kent de echte MSX niet. (N.B dit 
laatste is echt jammer). Als dit in 
ogenschouw wordt genomen is het boek te 
gebruiken, maar makkelijk is anders! 

Dat een fabriek zich dit eens laat 
overkomen is nog tot daaraan toe, maar dat 
Spectravideo twee maal achter eikaar 
hetzelfde doet is onvergeeflijk. De DISK 
van SV is namelijk eveneens niet 
compatibel! (de 5' 1/4 uitvoering) Ik ben 
dan ook van mening dat voor het feit dat 
dit boek bol staat van de onbruikbare tips 
de verantwoording ligt bij Spectravideo en 
bij niemand anders! Deze fabrikant uit 
tiong Kong en/of USA had op z’n minst de 
apparaten kunnen omruilen of op zijn 
kosten kunnen laten ombouwen tot de norm. 
De MSX GAMES adapter is geen oplossing, 
omdat er heel weinig geheugen overblijft en 
men daar echt geen programma in kwijt 
kan. En dat voor ongeveer f 250,—! 
Daarentegen koop je nu al voor f 500,— in 
de uitverkoop een eenvoudig model echte 
MSX. 

Al met al is het boek eigenlijk best redelijk. 
Er worden bepaalde zaken uitgelegd, die 
zowel voor MSX als voor de oude 

Spectravideo gelden. Maar er zijn ook 
Nederlandse boeken die hetzelfde doen en 
geen vreemde zaken behandelen. Ik pleit er 
dan ook voor dat dit boek uit de handel 
wordt genomen, het is gewoon misleiding! 
Als U het ziet in de uitverkoop, dan is mijn 
ad vies: loop er met een grote boog 
omheen. 


Dit was voor deze maand de 
boekenbespreking door Sylvia de Bruin. 

Veel liefs en tot de volgende keer! 

(C) Junipr 99 


de mini gids 

In deze rubriek kunnen onze lezers advertenttes 
plaatsen, mlts NIET VAN COMMERCIELE AARD! Handela- 
ren kunnen onze advertentIetarI even aanvragen. 

De redaktfe behoudt zich het recht voor adverten- 
ties voor deze rubriek te welgeren. Inzendlngen 
kunnen gestuurd worden naar Postbus 10252, 1001 EG 
Amsterdam en dienen voorzlen te zijn van naam, 
adres en evt. telefoonnummer. Advertentles met 
alleen postbusnummer of an+woordnummer worden niet 
opgenomen. 


Ik heb een 64 Kb CARTRIDGE 
wil deze ruilen voor een 16 
en nog wat software. A. van 
030-627577 Utrecht. 


van Sony en 
Kb CARTRIDGE 
Hussen. Tel. 


Gezocht: MSX software, te koop of te 
ruil. Voornamelijk educatief. Cass, of 
5.25" disk. A.v.d.H. Tel. 05410-11180 

Er liggen bij de redaktie nog enkele 
boeken te koop: 

'BASIC en huiscomputers' van K.L. Boon. 
APPLE files van David Miller. 

'TV spelcomputer 1 - ELEKTUUR. 

EPSON HX 20 van Albert Sickler. 

'CP/M operating system' van Jan Wilmink. 
Meetapparaten en meetmethoden 1 - PHI¬ 

LIPS. 

‘Het beste boek van de weg' uitg. 1980 

Prijs: FI. 10,00 per boek. Exclusief 
evt. verzendkosten. Tel. 020-320807 




CASSETTES 

De programma's uit de MSX-Gids zijn ook 
op cassette verkrijgbaar. 

Cassette nr. 1 bevat de programma's van 
de MSX-Gids nr. 1 

Cassette nr. 2 bevat de programma's uit 
deze MSX-Gids (nr. 2). 

De cassettes kosten FI. 15,00 p.st 
inclusief verzendkosten. 

(Belgie: BFR. 280.-) 

Giro: 909515 t.n.v. A.Debels 
Postbus 10252, 1001 EG Amsterdam. 

Voor Belgie: Rek.nr. 235-0430464-87 
bij de Generale Bank Mij. te Hasselt 
t.n.v. Jose Herps, Amsterdam. 

Vergeet bij de bestelling niet het cas- 
settenummer te vermelden. 

HAAST??.... Haal de cassette dan zelf op 
bij: 

MSX S0FTSH0P, Vespuccistraat 48, 

1056 SM Amsterdam. 

De winkel is dagelijks geopend van 09.00 
tot 18.00 uur. Maandag tot 13.00 uur 
gesloten. Ook open op de koopavond {don- 
derdag). 
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Een briefschrijver vroeg ons of het 
mogelijk is om de programma's te publi- 
ceren, die aangepast zijn aan het beeld- 
scherm; bijvoorbeeld 3/ tekens per re¬ 
gel . 

Dat kan, maar het lijkt ons logischer Uw 
beeldscnerm aan te passen aan de compu¬ 
ter en de beeldschermen van de andere 
gebruikers. Wanneer de 40 tekens niet op 
het scherm passen is het beeld niet goed 
gecentreerd. Wanneer b.v. aan de 1 inker- 
kant tekst ontbreekt, staat het beeld 
teveel links van het midden. Afregelen 
gebeurt met de 'H-SIZE' en 'H-POS' (soms 
H-CEN') instelpotmeters of knopjes aan 
de achterzijde van het apparaat. Afrege- 
len alleen met TRIMSLEUTELS!! Geen 
schroevendraaier ofander eng apparaat 
gebruiken; er wordt al genoeg vernield!! 
In mindere mate komen problemen voor met 
een slechte afstellmg in vertikale 
richting. Dit komt omdat aan de boven- 
en onderzijde van het beeld meer ruimte 
is, zodat dat gedeelte van het beeld 
minder snel uit het zicht verdwijnt. Ook 
hiervoor zijn instel potmeters op het 
toestel. Deze zijn gemerkt met 1 V-SIZE' 
en 'V-POS'. 

Misschien iets om volgende keer te be- 
handelen? 


Een briefschijver uit Kwadendamme vraagt 
om nieuws van MSX gebruikersclubs. 

Prima, maar daar moeten de clubs dan wel 
voor zorgen. 


DE MISSER VAN DE MAAND 

Een brief van R.Verheul maakt ons attent 
op een misser in het vorige nummer. Wij 
hadden in het programma voor het omreke- 
nen van Hex.dec. enz. een eigen routine 
geschreven voor het omrekenen van Bin. 
en Hex. naar decimaal. Geheel overbodig 
-volgens Verheul- en terecht! Dit kan 
zonder meer met "&H"+A$. 

Zo voor de hand liggend en eenvoudig, 
dat we dit gewoon over het hoofd hebben 
gezien. Gelukkig werkt het programma op 
onze manier ook goed, alleen hebben we 
het ons zelf wat te moeilijk gemaakt. 
Bedankt voor de brief! 


Erik Looy schrijft, dat hij MSXMAN wil 
uitbreiden en veranderen maar weet niet 
hoe dat moet. 

Het bijmaken van de velden gaat op de- 
zelfde manier -met een subroutine- als 
in het geplaatste spel. Dit staat bij de 
vorige publikatie beschreven. Wel zal ik 
nog even de variabelen, die evt. gewij- 
zigd moeten worden, doornemen. 

S = 3 in regel 4000 moet met 1 worden 
verhoogd voor elk nieuw veld. 

De waarden in de variabelen P{2),P{3) en 
P(4) bepalen de tijd voordat de spoken 
uit hun hok komen. Hoe hoger de waarden, 
hoe 1 anger het duurt. 

De waarde in W% bepaalt de tijd die er 
is om de spoken achterna te zitten. Hoe 
hoger die waarde {50 in het programma), 
hoe 1 anger de spoken achterna gezeten 
kunnen worden. 


Van Marc Spierenburg hoeft het al niet 
meer. Hij heeft er bezwaar tegen dat 
hier en daar in de listings 'normaaV 
Basic is gebruikt en niet optimaal de 
mogelijkheden van MSX-Basic zijn ge¬ 
bruikt. Hij heeft gelijk, als hij zegt 
dat er hier en daar niet optimaal ge- 
bruik van de MSX-Basic gebruik is ge¬ 
maakt. Dit wil echter niet zeggen dat de 
programma's er siechter door geworden 
zijn. Alles is foutloos, overzichtel1jk 
en gestruktureerd geprogrammeerd en de 
programma's werken probleemloos. Dat wij 
af en toe enigszins omslachtig te werk 
zijn gegaan ligt aan het feit dat er 
hier -voor de aanschaf van de MSX- 
slechts zelden met Microsoft-Basic is 
gewerkt doch voornamelijk met een Basic- 
Assembler, die alleen enkelvoudige in- 
strukties toelaat. Het is voor ons ook 
nog even wennen aan de vele mogelijkhe- 
deh, die MSX-Basic biedt. Maar als deze 
-verder prima- programma's voor jou 
daarom niet meer noeven, dan zou ik maar 
naar een ander blad uitkijken. Ik heb 
al1e op- en aanmerkingen uiteraard wel 
in het rode boekje gezet om herhaling te 
voorkomen en ben het eens met de kritiek 
wat betreft het gebruik van sommige 
instrukties; ik ben het er echter niet 
mee eens dat 'gewoon Basic 1 nu niet meer 
mag en dat alle programma's, waarin dit 
voorkomt, nu meteen minderwaardig zijn! 


Meerdere briefschrijvers vragen om ad- 
vies in verband met de aanschaf van 
printers, diskdrives, enz. Alqemene in- 
formatie kunnen we wel geven (en hebben 
we ook gegeven), maar het aanbevelen van 
1 merk of type is bijna niet mogelijk. 
Echt slechte produkten zijn er haast 
niet meer en je zal de keuze dus mede 
. moeten laten bepalen door je eigen spe¬ 
cif i eke wensen en eisen. 
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De MSX computer is geruisloos en stoort 
nauwelijks op de radio! 


s wa t 

Let je 

om t i 

j d e n s h e t 

compu- 

ren de 

radio 

a a n 

te zetten 

e n t e 


Luisteren n a a r een 

i n 


op 
d e 


F M b i j j o u 


de 


vrije radiozender 
buurt of een van 


zeezenders (Radio Caroline, Laser 


558 of Monique) op de middengolf 


En wie alles wil weten over 
vrije radiostations ~ en nog 
op mediagebied” 


d e z e 
v e e l 

leest natuurlijkhet 


FREE RADIO MAGAZINE. 

Verkrijgbaar bij de boekwinkel in 
Nederland en Belgie. 



IK AVVER TEER 
IN PE MSX-6/PS 



Vraag vrijblijvend onze 
advertentietarieven: 


T 




Lr J- 


□3410-1G2Q0 


-i 


TWIS-DATA Enschede Nieuwegein 

053-774240 03402-40527 




Tekstverwerker. FI 

Ka.artenbak. FI 

Rekenblad (spreadsheet)... FX 


Deze drie 
cassettes 
raentatie. 


programma. *s + twee 
+ Nederlandstalige 
. FI. 


50,00 

30,00 

30,00 

extra 

docu- 

95,00 


Prijzen excl. rembours- en portokos- 
ten. 


Wij hebben nog veel meer goedkope 
software. Heb je zelf software ge- 
ma.akt, wij bieden een goede prijs. 


TWIS-DATA maakt programma.'s voor 
home- en micro-computers tegen een 
redelijke prijs. Bel voor meer 
informa tie. 
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LISTING CONTROLE PROGRAMMA 


LISTING TESTER 

De Listing tester is bedoeld 
hulpmiddel voor de lezers, die de 
programma listings uit ons blad overnemen. 
Met dit progr aroma publiceren wij een 

kontrole-telling van de programmaregels 
en, wanneer u een programma heeft 
overgenomen, kunt a dan -ook weer met 
ditzelfde programma- een kontrole-telling 
uitvoeren. Zijn de getallen achter de 
regel hetzelfde, dan is de kans erg groot, 
dat het programma goed is overgenomen. 
Zeker is dit echter niet, want wanneer 
bijvoorbeeld twee letters in een regel 
worden omgewisseld, dan is de telling toch 
goed. Zo geeft PRINT en PRNIT dezelfde 
uitkomstl! 

MSX-Basic kent twee statements voor regels 
die alleen kommentaar bevatten; namelijk 
het REM-statement en regels die beginnen 
met '. Beide regels hebben over het 
algemeen geen invloed op de werking van 
het programma, en worden derhalve niet 
meegeteld. De uitkomst van die regels is 
altijd nul. Wanneer de REM regels wel 
belangrijk zijn (b.v. bij machinetaal 
routines, die tijdens de loop van het 
programma op deze regels worden geplaatst) 
dan wordt dit uitdrukkelijk vermeld. 

Wat bij MSX-Basic afwijkt van diverse 
andere Basic's is de spatiering tussen de 
instrukties. Deze hoeven bij MSX-Basic 
niet en worden ook niet automatisch 
tussengevoegd, zoals dit bij sommige 
andere Basics gebeurt. Dit kontrole 

programma telt dan ook de spaties tussen 
de instrukties niet mee; alleen de spaties 

in de teksten die tussen aanhalingstekens 
staan worden meegerekend. U hoeft dan ook 
niet letterlijk de regels over te nemen, 
maar u kunt gerust op uw eigen manier de 
regels intoetsen; b.v. zonder spaties, of 
met extra spaties. Dit maakt de 

Listingtester extra gemakkelijk in 
gebruik, daar alleen de echte fouten 

worden geteld. 

De tester heeft hoge regelnummers, zodat 
hij aan het eind van de meeste programma's 
geplaatst kan worden. U toetst dit 

programma in, en kontroleert het met 
zichzelf door regelnummer 65160 te 

vervangen door: IF VR— 0 THEN 65290 . 

Is het programma goed, dan moet dit met de 
opdracht SAVE "CAS:TESTER" (andere naam 

mag ook) op cassette worden gezet. (Wel 
eerst regel 65160 weer opnemen!!). Het 
programma wordt dan als ASCII-file op de 
band gezet. 

Niet wegschrijven met "CSAVE"M 

U gebruikt verder dit programma als volgt: 

U tikt het programma dat u wilt hebben in, 

en zet dit eerst op cassette. Niet eerst 
RUNen, want bij sommige fouten kan een 
programma blijven 'hangen' en vaak moet 


dan alies opnieuw worden ingevoerd! Daarna 
kan met MERGE "CAS:TESTER" het kontrole 
programma achter het ingetoetste programma 
worden gezet, waarna met RUN 65000 het 
kontroleren kan beginnen. Er is een keuze 
tussen de uitvoer naar een printer en naar 
het beeldscherm. In principe zal de 
printer worden gebruikt, maar bij kleine 
programma's, of wanneer nog slechts enkele 
regels nagekeken hoeven te worden, kan het 
ook via het beeldscherm. 

Voor het laden van het testprogramma moet 
de instruktie 'MERGE* worden gebruikt en 
niet LOAD I In het laatste geval komt de 
Listing tester namelijk in plaats van het 
reeds in het geheugen aanwezige programma 
te staan, en dan valt er niets meer te 
testen. 
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Voorlopig publiceren wij alleen een 
controle telling bij de grotere 
programma*s. De antwoorden op de enquete 
uit dit nummer zullen dan uitmaken of we 
deze controle telling vaker zullen 
plaatsen of geheel zullen laten vervallen. 

65000 *********************** 

65010 ' * LISTING TESTER * 

65020 ' * Door Alfred Debels * 

65030 ' * (c)1985 De MSX Gids * 

65040 " * Amsterdam * 

65050 " *********************** 

65060 ' 

65070 CLS:CLEAR:SCREEN 0:WIDTH 40:PRINT 
65080 PRINT "Weergave via, beeldscherm of pr 
inter?" 

65090 PRINT‘.PRINT "B of P?: " 

65100 X$=INKEY$:IF X$<>"B" AND X$<>"P" THEN 
65100 

65110 START=32769! 

65120 RG-START+2: T=0 
65130 Q=0 

65140 VR=PEEK(START)+256*PEEK(START+1) 

65150 NR=PEEK(RG)+256*PEEK(RG+1) 

65160 IF VR=0 OR NR>=64000! THEN 65290 
65170 S=0 

65180 FOR I=RG+2 TO VR-1 
65190 A-PEEK(I) 

65200 IF A=34 AND Q=0 THEN Q=1 ELSE IF A=3 
4 THEN Q=0 

65210 IF A=143 OR A=58 THEN I=VR: GOTO 6524 

0 

65220 IF A=32 AND Q=0 THEN 65240 
65230 S= S+A 
65240 NEXT 
65250 T=T+S 

65260 IF X$=”B" THEN PRINT USING "Regel: ## 

### - #####”;NR,S:GOTO 65280 
65270 LPRINT USING "Regel: IHHHtti - #####";N 
R,S 

65280 START-VR: RG=VR+2:G0T0 65130 
65290 IF X$="P" THEN 65310 
65300 PRINT:PRINT "Totaal: ";T: END 
65310 LPRINT: LPRINT "Totaal: ";T: END 
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LEZERSOMMRZOEK 


Heeft U een MSX computer? 

OJA ONEE 

Zo ja, welk merk/type: 

Zo niet, bent U dan van .plan binnenkort 
een MSX computer aan te schaffen? 

Oja Onee 

Heeft U nog een andere computer? 

OJA ONES 

Zo ja, welk merk/type: 

Waarvoor gebruikt U de MSX computer of 
waarvoor gaat U deze g6bruiken?: 

O Spell etjes OProgrammeren 

OZakelijk OMuziek 

OGrafische toepassingen 
OAnders, zoals 


Voor welke programmeertalen heeft U 
belangstelling? 

1 . 



3 

Welke randapparatuur 
gebruikt U: 

OCass. recorder 
03.5 diskdrive 
OMSX Printer 
080 kolommen 
Andere: 


en/of uitbreiding 


05.25 diskdrive 
OQuickdisk 
OAndere printer 
Okleurenmonitor 


Welke randapparatuur en/of uitbreiding 
bent U nog van plan aan te schaffen: 


Heeft U belangstelling voor zelfbouw 
uitbreidingen (bouwpakketten, schema's 
printen e.d.)? 

OJA OMISSCHIEN QHZt 

Vind U de listings in dit blad: 

OTE VEEL ogenoeg QTE WEINIG 


Maakt U gebruik van een listingcontrole 
programma? 

OJA O WEINIG onee 

Heeft U belangstelling voor cassettes 
met de in dit blad geplaatste program- 
ma's? 

OJA O WEINIG ONEE 
Hoe vind U de artikelen in dit blad? 
OTE MOEILIJK OGOEO QTE EENVOUDIG 
Wat vond U het beste artikel 


Wat vond U het slechtste artikel 


Heeft U belangstelling voor hardware 
tests? 

Oja onee 

Heeft U belangstelling voor software 
tests? 

Oja Onee 

Wat wilt U verder nog graag in dit 
blad lezen? 


Wat wilt U liever niet (meer) in dit 
blad lezen? 


Tot slot nog wat persoonlijke gegevens. 
O MAN QVROUW 


Leeftijd: OJonger dan 20 0 20-30 

0 30-40 O 40-50 OOuder dan 50 

Doe mee en vul de vragen in. De MSX- 
Gids is een blad voor en door hobbyis- 
ten, en met de gegevens uit dit onder- 
zoek zal bij het samenstellen van 
de inhoud van de komende nummers zo- 
veel mogelijk rekening worden gehouden. 

Afleen insturen ais je vorige keer 
niet hebt meegedaan!! 


Deze enquete voor 31 december opsturen 
naar: MSX Gids, Postbus 10252, 

1001 EG Amsterdam. 
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De MSX Gids komt voor een groot deel tot stand door inzendingen van de 
lezers. Deze bijdragen dienen orgineel te zijn en dus niet overgenoraen 
ait andere bronnen. 

Voor inzendingen die gepubliceerd worden in een van onze uitgaven, 
wordt een vergoeding gegeven; de inzending wordt dan wel eigendom van 
de uitgeverij. 


Meer inlichtigen te verkrijgen bij: 
A.Debels, Postbus 10252, 1001 EG Amsterdam. 
Tel. 020-320807 


MSX-GIDS NR.l IS NOG (BEPERKT) LEVERBAAR. 


Te bestellen door overmaking van FI. 7,95 op 
Giro: 5036011 t.n.v. J.Herps, Amsterdam. Voor 
Belgie BFR. 155 op Bankrekeningnr. 
235-0430464-87 bij de Generale Bankmij. te 
Ha.sselt t.n.v. J.Herps, Amsterdam. 



y^.WrV.w 
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Hallo, doe mee! 


Heeft U ervaringen met Uw MSX computer die ook voor een ander leerzaam 
zijn? 


Schrijf ze dan op en stuur ze na.ar de MSX gids. Bij plaatsing van Uw 
stukje wordt door ons een vergoeding gegeven. 



JA, NOTEER MIJ ALS ABONNEE! (FI. 40,00 voor 6 nummers) 


Naam:_ 

_Woonplaats:_ 

0 STUUR MIJ EEN STORTINGSKAART 

0 IK BETAAL ZELF OP GIRO: 50 36 01 1 t.n.v. J.HERPS - AMSTERDAM 


Adres: __ 
Postcode: 
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Software van uitmuntende kwaliteit! 


MSX 




Software uit de MT-reeks is beroemd om zijn kwaliteit en bedieningsgemak. Micro Technology besteed erg veel 
aandacht aan de gebruiksvriendelijkheid en aan de toepassingsmogelijkheden van de door haar op de markt 
gebrachte software. Diverse testen in computerbladen spreken vol lof over de uitvoering, de doordachtheid en 
de gemakkelijke toepasbaarheid van ieder MT-programma. Meestaf zijn de MT-programma’s uitgevoerd in een 
Cartridge, een kunststof module, die direkt in uw MSX-Computer past. Het programma behoeft dan niet van 
Diskette of Cassette te worden ingeladen. Ook neemt zo'n Cartridge programma vrijwel geen ruimte in het 
werkgeheugen van uw computer in. De opslagkapaciteit van de MT-programma's is dan ook meestal groter dan 
van andere, vergelijkbare software! Alle programma’s van Micro Technology kunnen met diskette en met cas¬ 
sette (voor gegevens-opslag) worden gebruikt! 


MT-BASE 

gebr. • svnendelijk kaartsysteem 

ben rmes?. 'Derc-emde programma utt de MT-reeks. Zeer uit- 
getre&e mogefifktveden voor het aanleggen van een kaart- 
Wfmemn vooradressanbestand, voorraad-overzicht, agen¬ 
da. pMen-co!9ec!ie, ledenbestand, enz. enz. Mogelijkhe- 
wi ia aat onbegrensd. 

MT-fiASE werkt geheel in het geheugen van uw MSX* 
Computer en kan zelfs toekomstige geheugen-uitbreidin- 
pw van uw MSX al aan. Afdrukken van de gegevens kan 
met MT-BASE precies zeals u dat wensf, Op stickers, lij- 
sien, formulieren, overziehten, enz. enz. Uitgebreide se I ec* 
be en sorteermogenjkheden zijn ingebouwd, Alfabetisereo 
en sefecteren op ieder veld. Selecteren op meerdere vel- 
sen legehjkertijd. Uitvoering in Cartridge, werkt met cas¬ 
sette en met msx-diskdrive als opslagmogelijfcheid. Uttge- 
bre«de testrapporten beschikbaar. (Zie ook de uitstekende 
recent-es in diverse computerbladen) 
ipci uitgebreide handleiding (TSO pagina's} en verpakt in 
iujnststof omdoos. 


MT TEXT 

tekstverwerking met grafische mogelijkheden 

Met MT-TEXT wordt uw MSX-Computer een uitgebreide tekst- 
verwerker met mogelijkheden die u eigeniijk alleen in veel duur- 
dere pakketten aantreft. Zelfs kunt u alle specials, grafische 
max-tekens gebrutken. Daardoor kunnen kaders, staafdiagram- 
men, tekemngen, enz. direkt in de tekst worden opgenomen. 
MT-TEXT is gebaseerd op “wat u ziet. dat krijgi u" Op uw beeld- 
scherm wordt de brief of het getijpte stuk precies zo zichtbaar, 
zeals het later op papier zal worden afgedrukt! AJs de tekst gro 
ter is dan uw beeldscherm, dan wordt uw beeldscherm als het 
ware een venster, dat over de tekst "been en weer schurff. 

Op het beeldscherm zijn de tekstregels tot 64 tekens lang, het- 
geen betekent dat er pirn. 50% meer tekst tegelijkertijd zichL 
bear is dan bij andere tekstverwerkingsprogramma's. MT-TEXT 
werkt samen met MT-BASE voor het automatisch invoegen van 
informahe uit MT-BASE in MT-TEXT, Uitgebreide HELP func- 
ties worden gerealiseerd d.m.v. zgn, "ikonen*, afbeeldtngen die 
functies visualiseren! Alle soorten printers kunnen worden aan- 
gesloten, 

Incl, uitgebreide handleiding en verpakt in kunststof omdoos. 


f. 199,-- 1 LEVEB8AAR: FEBR. 1986 t. 249,-- 


MT-VIDITEL 
telecommunicate en telesoftware 

Uw MSX-Computer wordt een intelligent© ViditeMermmal AHe 
functies die u maar kunt bedenken zijn aanweztg in dit fantasti- 
sche pakket U kunt pagina's in het geheugen van de computer 
opslaan, ze op diskette of cassette bewaren. Ook kunt u zelf Vi- 
ditel-plaatjes *aanmaken“ die u via de ingebouwde Rotor funette 
achter elkaar kunt laten zien. Een mogelijkheid is ingebouwd 
om software vangit Viditel in uw MSX-Computer te laden, via de 
telefoonverbinding. Inbegrepen in de MT-Viditel module is gra¬ 
tis toegang tot het Viditel bestand van Micro Technology v r a. pa- 
gina 366. Hier vindt u veel informatie over MSX en ook een zgn, 
,| "prikbord*. Micro Technology ondersteund het MT-Viditel pro¬ 
gramma met een Mink bestand in Viditel, terwijl u ook van Phi¬ 
lips Nederland, via de Th utscomp Lite ref ub in de PTT-Viditel 
Computer ondersteuning krijgt, O.m, zorgt Philips ervoor dat 
veel software voor MSX beschikbaar komt, In de Cartridge is te- 
vens een FIS232 Interface met kabel ingebouwd, zodal alleen 
een modem nodig Is om te communiceren. 

Incl. uitgebreide handleiding en verpakt in kunststof omdoos 

f. 299,- 

(MT-VIDITEL wordt voor de handel gedisthbueerd door Philips 
Nederland n.v.) 


MT-COM 

S jemene telecommunicate met uw MSX 

-Com is een RS232 module met ingebouwde software. 
Met het Telecommunicate-pakket dat in de interface aan- 
is kunt u vrijwel iedere databank in de wereld aan- 
i. Alle communicatie protocollen zijn door uzeif in te 
terwijl de communicatie-snelheden vrij fe kiezen 
zin van 50 t/m 9.600 baud! Ook ondersteund de interface 
zgn * split-speed* communicatie zoals dit voor Vieuwdata 
en andere Viditel-achtige databanken gebruikelijk is. 

De interface is reeds voorbereid op komende MSX-normen 
zodat in software instelbaar is 40 of 80 characters (indien 
uw MSX deze mogeiijkheid kent), 

De module wordt geleverd als compleet pakket, De Cartrid¬ 
ge bevat de software, een RS232 Interface en een aansiuit- 
kaM voorzien van een 25-polige (male) connector, 
bxrl uitgebreide handleiding en verpakt in kunststof om- 


f. 299,- 


MT-DEBUG 

voor programmers 

e^genschappen van een MSX-Computer vragen 
1 :^'e^dschap # voor programmeurs. Om de (ma- 
chtnetaa!) przgramr a $ op een MSX-Computer goed te kunnen 
testen oo "bugs' $ aen 'debugger* een onmisbaar stuk gereed- 
schap Net prog'cfnmt MT-DEBUG geeft iedereen die wet eens 
een machtn^ iit-fc^jone voor BASIC maakt of een compleet 
programma m mactmtaai de mogelijkheid de fouten op een 
snelle wijze eruit te ha*er en zodoende uren of dagen aan pro¬ 
gram meertijd te oesrarer 

Met MT-DE0UG kunt u c a n de andere slots (banken) van uw 
MSX kijken. Ook m het verptaatsen van de inhoud van een be- 
paald geheugen dee van het em s*ot near het andere mogelijk, 
Het zetten van een Brea»fpoeit (onderbreking van een machine- 
taal programma) en het mspecteren van de stand van de regis¬ 
ters van de Z80 processor 'm uit iru rd ook mogelijk. Direct ver- 
anderen van de inhoud van het geheugen is mogelijk. Het pro¬ 
gramma * dat geleverd wordt in zetf-opstarlende Cartridge - is 
aanroepbaar vanuit BASIC d m v een ‘CALL* Of vanuit machi* 
netaal d.m.v. een Jump. In 4Kbyte ROM-Carthdge met uitge- 
breide handleiding. 


MT-DISPLAY 
Hchtkrant/reklame display systeem 

Op Teleteksf-acht^ge manier kunt u beekJen automatisch iaten 
displaysn door MT-DISPLAY. U kunt deze beelden zelf samen- 
stellen Met alle kieuren die ook in Teleleksl aanwezig zijn. De mo¬ 
dule zorgl ervoor dat u in een 64Kbyte MSX computer ruim 50 
beeWpagina s kunt opslaan, die stuk voor stuk t zonder dat u er 
jets aan behoeft te doen, afgebeeld worden op het Video-sc herm. 
De toepassingen zijn welhaast grensloos. Nu al word* MT-DIS¬ 
PLAY toegepast als een fantastische aandachttrekker voor eta- 
lages, als mededelingenscherm voor warenhuizen, als CAI-me- 
dedelingensysteem, voor Hotels, wachtruimten, winkefs, win- 
kelcentra, banken, etc. etc. 

De speciale eigenschappen van MT-DISPLAY (knipperen van 
tekstdelen, dubbele hoogte letters, alles in een 7-tal verschillen- 
de frisse kieuren) maken het mogelijk reklame boodschappen 
onder de aandacht te brengen van winkelend publiek, bezoe- 
kers van tentoonstellingen, hototgasten, enz. enz Ieder beeld 
kan een vooraf ingestelde tijd op bet beeldscherm blijven staan, 
De door uzelf gemaakte beelden kunnen zowel op diskette als 
op cassette worden opgeslagen. Cartridge met uitgebreide 
handleiding en verpakt in kunststof omdoos. 


f. 199,- 


MT-IAKTUUR 
snet en eenvoudig faktureren 

Snel eventjes een faktuurtje tikken? Gemakkelijk gezegd. toch 
een behoorlijk werk. Tenzij u natuurlijk de beschikking heeft 
over een uitgebreid, gecomputeriseerd boekhoudsysieem. In 
alle andere gevaflen is MT-FAKTUUFL een MSX- Computer en 
een eenvoudige printer een gemakkelijke, snette en economt- 
sche oplossing, Met MT-FAKTUUR maakt u in een handom- 
draai een nette rekening. Het berekenen van aantallen maa! 
stuksprijs, sublotalen en btw wordt geheel automatisch gedaan. 
U kunt de aldus gemaakte fakturen bewaren op diskette of cas¬ 
sette. Ze direct na het maken afdrukken of alles van een werk- 
dag of werkperiode opsparen en dan de printer inschakelen om 
een afdruk te maken, MT- FAKTUUR drukt af op uw eigen fak- 
tuur- papier (loss© vellen of ketting-formulier) maar kan ook op 
bfanco papier een faktuur maken, compleet met uw briefhoofd/ 
faktuurhoofd, 

Een gemakkelijk, opzichzeffstaand programma, dat zijn geld in 
enkele dagen terugverdiend! 

MT-FAKTUUR wordt geleverd in cartridge voor samenwerking 
met disk of cassette, met uitgebreide handleiding. 


MT-KASBOEK 

uw kasboek netjes bijhouden met MSX 

De vervanging van uw kasboek. Met uw MSX-Computer is 
het bijhouden van een kasboek gemakkelijk. Alle uitgaven 
en rnkomsten kunt u keurig op de printer afdrukken. Zefts 
kan MT-KASBOEK een aantal kostengroepen voor u bij¬ 
houden, Als u wilt weten hoeveel u aan een bepaalde kos- 
tengroep heeft uitgegeven, dan maakt MT-KASBOEK 
netjes een overztchf voor u. Alle boekingen zijn op te slaan 
op diskette of op cassette, Totaliseren kan per periods, ter¬ 
wijl ook totalen van bepaalde kostensoorten zijn te verkrif- 
gen. Maximaal kunt u tot 16 kostensoorten aangeven, 
Meestaf ruim voldoende voor ieder kasboek, MT-KAS¬ 
BOEK is een opzichzeffstaand programma 

MT-KASBOEK wordt geleverd in cartridge voor samenwer- 
king met disk of cassette, met uitgebreide handleiding.- 


e 
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MT-VIEWDATA 
eenvoudige viditelcommunicatie 

Micro Technology maakt niet alleen het baste Viditel-pro- 
gramma (zie MT-VIDITEL) maar ook het goedkoopsfe! MT- 
VIEWDATA is een programma waarmee uw MSX-Compu¬ 
ter een house ViditeMerminal wordt! Door een zeer inge- 
nieus stukje software, is de RS232 Interface niet nodig, 
Slechts een verbinding tussen Modem en uw MSX-Compu¬ 
ter via de Joystick-poort is noodzakelijk om het programme 
naar behoren te Iaten functioneren. De Viditel-beelden wor¬ 
den opgebouwd in 2 kieuren en in full-graphics, waaronder 
zelfs zgn, ^separated graphics" 1 ! 


f. 149,- 


Het programma wordt geleverd op cassette en is geschikt 
om te bewaren op diskette of cassette. Bij het programma 
is ook een interface-kabel nodig. Deze kabel is zelf te ver- 
vaardigen aan de hand van de gegevens in de handleiding 
van het programme, of separaat te besteMen. 

MT-VtEWDATA op cassette: ../. 49 t S0 

Kabel met 9-poiige standaard connector . 149,50 

f. 199 t - m I | Kabel met 25-polige standaard connector... f. 59,50 


De programma s van Micro Technology zijn verkrijgbaar via iedere computerdealer en/of hifi-msx 

Distributie voor de handel van alle programma’s (behalve MT-VIDITEL), Micro Technology b.v., afd. Distribute, tel. 078- 410977 of telex 62425 mtsft 

Distribute voor de handel van MT-VIDITEL: via de bekende Philips Groothandelskanalen. 

Wilt u een overdruk van diverse testrapporten van MT-BASE? 

Stuur dan een briefkaartje naar: Micro Technology b.v., afd. Klantenservice, Postbus 95, 3350 AB PAPENORECHT. 
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handboeken 

leerboeken 

software 




BASIC 


prijs f 49,50 
ISBN 90 6398 100 7 

De steun en toeverlaat van zowel de pro• 
fessionde programmeur ats de amateur. 


DISK 


prijs f 29,50 
ISBN 90 6398 407 3 

Basic in verband met de schijveneenheid; 
aanvulling op bovengenoemd deel. 

QUICK DISK 

prijs f 23,50 
ISBN 90 6398 2 54 2 

Behandeling van de quick disk komman- 
do's; aanvulling op Basic handboek. 

ZAKBOEKJE 

prijs f 19,50 
ISBN 90 6398 888 5 

A He betangrijke gegevens voor Basic- en 
machinetaalprogrammeurs. 


DOS 


prijs f 26,50 
ISBN 90 6398 674 2 
Behandeling van bet eerste professionele 
MSX operating system: het MSX DOS. 

PRAKTIJK 


PROGRAMMES 


prijs f 24,50 
ISBN 90 6398 437 5 

De gegeven programme's zijn van uitgebreid kommentaar voorzien. 


leerboeken 

MSX Basic leerboek deel 1 
ISBN 90 6398 649 1, prijs f 24,50 
Opdrachten bij deel 1 
ISBN 90 6398 596 7, prijs f 11- 

De serie MSX leerboeken gee ft een komp/ete kursus 
MSX-Basic programmeren in drie de/en, 

Deze leerboeken zijn gericht op de beginnende program¬ 
meur. De gebruik te voorbeeiden zijn zo praktisch 
mogelijk gekozen, waardoor a / in een vroeg stadium 
bruikbare programma's kunnen worden gemaakt. feder 
deel werkt toe naar het voorbeeldprogramma datachter 
in het deel is opgenomen. 

Bij ieder leerboek is een afzonderlijk opdrachtenboekje 
te verkrijgen. Zowel voor gebruik op school als voor indi- 
vidueel gebruik zulien deze boekjes erg nu ttig zijn. 

Vraag even om onze uitgebreide gratis catalogus 
van computerboeken en software. Al onze uitgaven zijn 
ook verkrijgbaar in de boekhandel en computershop. 

uitgeverij STARK - TEXEL 

postbus 302-1794 ZG Oosterend tel. 02223-661 



DEEL 1 


WESSEL AKKERMANS/P1ET DEM HEIJER 



truuks en tips 
deel 1 


A.C.J. Grooneveld 



deel 1 prijs f 24,90 
ISBN 90 6398 900 8 
Boordevoi met truuks en tips, 
voorzien van duidelijke uitleg en 
listings. 



prijs op band f 35,75; op floppy 
3,5” of 5,25” f 55,75 


ISBN 90 6398 148 1 
MSX wordt op een vriendelijke 
en onderwijzende manier vanuit 
nu! bij de gebruiker geihtrodu- 
ceerd. 



DRAWS 

\ X 

prijs op band f 48,—; op floppy 
3,5” of 5,25” f 68- 
ISBN 90 6398 754 4 
Tekenprogramma; a! binnen 10 
minuten uw eerste technische of 
kreatieve tekening op uw MSX 
compu ter. 



prijs op band f 58,50; op floppy 
3,5" of 5,25" f 78,50 
ISBN 90 6398 189 9 
Een volledig menu-gestuurde 
nederlandsta/ige tekstverwerker. 
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